
abstract TestVarsA = {

-- cat S; A; B; 
-- fun a : B -> S;
-- fun b : A -> B -> S;
-- fun c : S;

-- cat V; W;
-- fun v : V;
-- fun w : W;

cat S;
--fun s : S;
fun e : S;
fun ee : S -> S;
fun f : S;
fun ff : S -> S;

-- cat D;
-- fun d : D;
-- fun dd : D -> D;
}

