]> matita.cs.unibo.it Git - helm.git/blob - helm/matita/tests/simpl.ma
...
[helm.git] / helm / matita / tests / simpl.ma
1 alias id "not" = "cic:/Coq/Init/Logic/not.con".
2 alias symbol "eq" (instance 0) = "leibnitz's equality".
3 theorem a : 
4  \forall A:Set.
5  \forall x,y : A.
6  not (x = y) \to not(y = x).
7 intro.
8 simplify.