X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2FC%2Ffwd.ma;h=43d43fc7144563dd3d2d59b9aba809cd46301cf6;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=675a0863b50b00dc510735351e019228402d187d;hpb=8de8cf8adfa6fcda91047eb2c25535893ede046a;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/C/fwd.ma b/matita/matita/contribs/lambdadelta/basic_1/C/fwd.ma index 675a0863b..43d43fc71 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/C/fwd.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/C/fwd.ma @@ -16,7 +16,7 @@ include "basic_1/C/defs.ma". -implied let rec C_rect (P: (C \to Type[0])) (f: (\forall (n: nat).(P (CSort +implied rec lemma C_rect (P: (C \to Type[0])) (f: (\forall (n: nat).(P (CSort n)))) (f0: (\forall (c: C).((P c) \to (\forall (k: K).(\forall (t: T).(P (CHead c k t))))))) (c: C) on c: P c \def match c with [(CSort n) \Rightarrow (f n) | (CHead c0 k t) \Rightarrow (f0 c0 ((C_rect P f f0) c0) k t)].