helm/matita/tests/test3.ma

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