(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/demodulation/".
-include "legacy/coq.ma".
-alias num = "natural number".
+include "coq.ma".
+
+alias num = "Coq natural number".
alias symbol "times" = "Coq's natural times".
alias symbol "plus" = "Coq's natural plus".
alias symbol "eq" = "Coq's leibnitz's equality".
alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
alias id "S" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/2)".
-
+alias id "O" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)".
theorem p0 : \forall m:nat. m+O = m.
-intro. demodulate.
+intro. demodulate.reflexivity.
+qed.
theorem p: \forall m.1*m = m.
intros.demodulate.reflexivity.