legacy_1, ground_1, and basic_1 recommitted without anticipation

[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / cnt / fwd.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma b/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma
index 37961cf69d8f28f6bb06b26b703021af8bbf47b7..dc687c9dd9cbe9037c33ee3144dc9e413721da84 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/cnt/fwd.ma
@@ -19,6 +19,6 @@ 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))].
+n) \Rightarrow (f n) | (cnt_head t0 c0 k v) \Rightarrow (f0 t0 c0 ((cnt_ind P 
+f f0) t0 c0) k v)].