X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fcnt%2Ffwd.ma;h=92273769901cbe8a44f6d6f9fdbb4a8b5ac82ec2;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=37961cf69d8f28f6bb06b26b703021af8bbf47b7;hpb=8c62eb7de90e3c9a3a960fb0b3845bc561dddb75;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma b/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma
index 37961cf69..922737699 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma
@@ -16,9 +16,9 @@
 
 include "basic_1/cnt/defs.ma".
 
-let rec cnt_ind (P: (T \to Prop)) (f: (\forall (n: nat).(P (TSort n)))) (f0: 
-(\forall (t: T).((cnt t) \to ((P t) \to (\forall (k: K).(\forall (v: T).(P 
-(THead k v t)))))))) (t: T) (c: cnt t) on c: P t \def match c with [(cnt_sort 
-n) \Rightarrow (f n) | (cnt_head t0 c0 k v) \Rightarrow (let TMP_1 \def 
-((cnt_ind P f f0) t0 c0) in (f0 t0 c0 TMP_1 k v))].
+implied rec lemma cnt_ind (P: (T \to Prop)) (f: (\forall (n: nat).(P (TSort 
+n)))) (f0: (\forall (t: T).((cnt t) \to ((P t) \to (\forall (k: K).(\forall 
+(v: T).(P (THead k v t)))))))) (t: T) (c: cnt t) on c: P t \def match c with 
+[(cnt_sort n) \Rightarrow (f n) | (cnt_head t0 c0 k v) \Rightarrow (f0 t0 c0 
+((cnt_ind P f f0) t0 c0) k v)].