X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Flib%2FlambdaN%2Fterms.ma;h=0227f1e948e3787f6269b58c252f5558b427ad8d;hb=ef3bdc4be26f6518a82a79c64e986253f7aeaa3c;hp=554f8099cb453ac0719b17fb082ceddc3a2272ad;hpb=15190ed1fb47989f2d50261db7991186ec3d5e47;p=helm.git

diff --git a/matita/matita/lib/lambdaN/terms.ma b/matita/matita/lib/lambdaN/terms.ma
index 554f8099c..0227f1e94 100644
--- a/matita/matita/lib/lambdaN/terms.ma
+++ b/matita/matita/lib/lambdaN/terms.ma
@@ -18,7 +18,7 @@ inductive T : Type[0] ≝
   | App: T → T → T    (* function, argument *)
   | Lambda: T → T → T (* type, body *)
   | Prod: T → T → T   (* type, body *)
-  | D: T → T          (* dummifier *)
+  | D: T → T → T      (* dummy term, type *)
 .
 
 (* Appl F l generalizes App applying F to a list of arguments
@@ -30,7 +30,7 @@ let rec Appl F l on l ≝ match l with
    ].
 
 lemma appl_append: ∀N,l,M. Appl M (l @ [N]) = App (Appl M l) N.
-#N #l elim l -l // #hd #tl #IHl #M >IHl //
+#N #l elim l normalize // 
 qed.
 
 (*
@@ -43,9 +43,13 @@ let rec is_dummy t ≝ match t with
    | D _        ⇒ true
    ].
 *)
-(* nautral terms *)
+
+(* neutral terms 
+   secondo me questa definzione non va qui, comunque la
+   estendo al caso dummy *)
 inductive neutral: T → Prop ≝
    | neutral_sort: ∀n.neutral (Sort n)
    | neutral_rel: ∀i.neutral (Rel i)
    | neutral_app: ∀M,N.neutral (App M N)
+   | neutral_dummy: ∀M,N.neutral (D M N)
 .