]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/legacy_1/coq/fwd.ma
performance data for basic_1 on dev.helm
[helm.git] / matita / matita / contribs / lambdadelta / legacy_1 / coq / fwd.ma
index 8738e723477753937d43b49254e1449b438b7f0d..518bb5ff064f169a3128a6d89ad55521c865d2c8 100644 (file)
@@ -90,5 +90,5 @@ let rec Acc_ind (A: Type[0]) (R: (A \to (A \to Prop))) (P: (A \to Prop)) (f:
 (\forall (x: A).(((\forall (y: A).((R y x) \to (Acc A R y)))) \to (((\forall 
 (y: A).((R y x) \to (P y)))) \to (P x))))) (a: A) (a0: Acc A R a) on a0: P a 
 \def match a0 with [(Acc_intro x a1) \Rightarrow (f x a1 (\lambda (y: 
-A).(\lambda (r: (R y x)).((Acc_ind A R P f) y (a1 y r)))))].
+A).(\lambda (r0: (R y x)).((Acc_ind A R P f) y (a1 y r0)))))].