]> matita.cs.unibo.it Git - helm.git/blob - helm/matita/tests/auto.ma
80256c0f4b3858e90b425d09fbcecf61d88d5e55
[helm.git] / helm / matita / tests / auto.ma
1 alias id "O" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)".
2 alias id "S" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)".
3 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
4 alias symbol "eq" (instance 0) = "leibnitz's equality".
5 alias symbol "minus" (instance 0) = "natural minus".
6 alias symbol "plus" (instance 0) = "natural plus".
7 alias symbol "times" (instance 0) = "natural times".
8 theorem a : \forall x,y:nat. x*x+(S y) = O - x.
9 intros.
10 auto depth = 3.