(**************************************************************************)
set "baseuri" "cic:/matita/tests/discriminate".
-include "legacy/coq.ma".
+include "../legacy/coq.ma".
alias id "not" = "cic:/Coq/Init/Logic/not.con".
alias num (instance 0) = "natural number".
alias symbol "eq" (instance 0) = "Coq's leibnitz's equality".
theorem recursive: S (S (S O)) = S (S O) \to False.
intros;
destruct H.
-qed.
\ No newline at end of file
+qed.