diff -r 7f9e4c389318 -r 6536fb8c9fc6 src/ZF/Coind/Types.ML --- a/src/ZF/Coind/Types.ML Mon May 21 14:45:52 2001 +0200 +++ b/src/ZF/Coind/Types.ML Mon May 21 14:46:30 2001 +0200 @@ -10,12 +10,12 @@ by (Simp_tac 1); qed "te_app_owr1"; -Goal "x ~= y ==> te_app(te_owr(te,x,t),y) = te_app(te,y)"; +Goal "x \\ y ==> te_app(te_owr(te,x,t),y) = te_app(te,y)"; by Auto_tac; qed "te_app_owr2"; -Goal "[| te:TyEnv; x:ExVar; x:te_dom(te) |] ==> te_app(te,x):Ty"; -by (res_inst_tac [("P","x:te_dom(te)")] impE 1); +Goal "[| te \\ TyEnv; x \\ ExVar; x \\ te_dom(te) |] ==> te_app(te,x):Ty"; +by (res_inst_tac [("P","x \\ te_dom(te)")] impE 1); by (assume_tac 2); by (assume_tac 2); by (etac TyEnv.induct 1);