helm/matita/tests/auto.ma

   1 set "baseuri" "cic:/matita/tests/auto/".
   2
   3 alias id "O" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)".
   4 alias id "S" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)".
   5 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
   6 alias symbol "eq" (instance 0) = "leibnitz's equality".
   7 alias symbol "minus" (instance 0) = "natural minus".
   8 alias symbol "plus" (instance 0) = "natural plus".
   9 alias symbol "times" (instance 0) = "natural times".
  10 theorem a : \forall x,y:nat. x*x+(S y) = O - x.
  11 intros.
  12 auto depth = 3.