X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLambdaDelta-1%2Fty3%2Fdefs.ma;fp=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLambdaDelta-1%2Fty3%2Fdefs.ma;h=eff4d8e7bb54a26c1cd7211fa4dee68d1c0c8b0f;hb=81cb773cbc402fc74752fb69a436b25be49489ee;hp=8ddb60c91189fa3eaf38618fda9baae4f5f32096;hpb=d00c40ed72c98a6d6941e81ea16e234903996b07;p=helm.git

diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/ty3/defs.ma b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/ty3/defs.ma
index 8ddb60c91..eff4d8e7b 100644
--- a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/ty3/defs.ma
+++ b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/ty3/defs.ma
@@ -42,5 +42,5 @@ g c (THead (Flat Appl) w v) (THead (Flat Appl) w (THead (Bind Abst) u
 t)))))))))
 | ty3_cast: \forall (c: C).(\forall (t1: T).(\forall (t2: T).((ty3 g c t1 t2) 
 \to (\forall (t0: T).((ty3 g c t2 t0) \to (ty3 g c (THead (Flat Cast) t2 t1) 
-t2)))))).
+(THead (Flat Cast) t0 t2))))))).