ndefinition thesis0: ∀A:Type.Type ≝ λA. A → A.
-alias id "thesis0" = "cic:/matita/tests/ng_commands/thesis0.con".
-
ndefinition thesis: ∀A:Type.Type ≝ λA. ?.
napply (A → A);
nqed.
-alias id "thesis" = "cic:/matita/tests/ng_commands/thesis.con".
-
ntheorem foo: ∀A:Type.thesis A.#A;#x;napply x;
nqed.
-alias id "foo" = "cic:/matita/tests/ng_commands/foo.con".
-
ntheorem goo: ∀A:Type.A → A. #A; napply (foo ?);
nqed.
-naxiom P: Prop.
-
-alias id "P" = "cic:/matita/tests/ng_commands/P.con".
+naxiom NP: Prop.
-ndefinition Q: Prop ≝ P.
+ndefinition Q: Prop ≝ NP.
-(*
nlet rec nzero (n:nat) : nat ≝
match n with
[ O ⇒ O
| S m ⇒ nzero m].
+ntheorem nzero_ok: nzero (S (S O)) = O.
+ napply (refl_eq ? O);
+nqed.
+
+(*
ninductive nnat: Type ≝
nO: nnat
| nS: nnat → nnat. *)
\ No newline at end of file