helm/matita/tests/test3.ma

   1 set "baseuri" "cic:/matita/tests/".
   2
   3 alias symbol "eq" (instance 0) = "leibnitz's equality".
   4 theorem a:\forall x.x=x.
   5 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
   6 exact nat.
   7 intro.
   8 reflexivity.
   9 qed.
  10 alias num (instance 0) = "natural number".
  11 alias symbol "times" (instance 0) = "natural times".
  12
  13 theorem b:\forall p:nat. p * 0=0.
  14 intro.
  15 auto.
  16 qed.