]> matita.cs.unibo.it Git - helm.git/blob - helm/matita/tests/test2.ma
incomplete proof completed
[helm.git] / helm / matita / tests / test2.ma
1 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
2 alias symbol "and" (instance 0) = "logical and".
3 alias symbol "eq" (instance 0) = "leibnitz's equality".
4 theorem a:\forall x:nat.x=x\land x=x.
5 intro.
6 split.
7 reflexivity.
8 reflexivity.
9 qed.