X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fng_commands.ma;h=2241043a9fe05d09f723d02ba1f0ef54c3714bdc;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=cbb73844d98b7d4fe55d8327d4ac9d57919930d1;hpb=a5126dcf31146ae630a38e7ca42a61d3eeadd0e6;p=helm.git diff --git a/helm/software/matita/tests/ng_commands.ma b/helm/software/matita/tests/ng_commands.ma index cbb73844d..2241043a9 100644 --- a/helm/software/matita/tests/ng_commands.ma +++ b/helm/software/matita/tests/ng_commands.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "nat/plus.ma". +include "ng_pts.ma". ndefinition thesis0: ∀A:Type.Type ≝ λA. A → A. @@ -30,6 +30,8 @@ naxiom NP: Prop. ndefinition Q: Prop ≝ NP. +include "nat/nat.ma". + nlet rec nzero (n:nat) : nat ≝ match n with [ O ⇒ O @@ -57,4 +59,4 @@ and nmzero (m:mat 0 (dt ?)) : nnat 0 (dt ?) ≝ [ mS n ⇒ nnzero n ]. nrecord pair (n: nat) (x: DT n) (label: Type): Type ≝ - { lbl:label; l: pair n x label; r: pair n x label}. \ No newline at end of file + { lbl:label; l: pair n x label; r: pair n x label}.