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 exact nat.
   5 intro.
   6 reflexivity.
   7 qed.
   8 alias num (instance 0) = "natural number".
   9 alias symbol "times" (instance 0) = "natural times".
  10
  11 theorem b:\forall p:nat. p * 0=0.
  12 intro.
  13 auto.
  14 qed.