helm/matita/tests/rewrite.ma

   1 alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
   2 alias num (instance 0) = "natural number".
   3 alias symbol "eq" (instance 0) = "leibnitz's equality".
   4 alias symbol "plus" (instance 0) = "natural plus".
   5 theorem a:
   6   \forall a,b:nat.
   7   a = b \to b + 0 = a.
   8 intros.
   9 rewrite left H.