X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLambdaDelta-1%2Fcsubt%2Fdefs.ma;h=8b92e30f27d65ef2d62fb4f56c1ba2a702194b6d;hb=f73bd1c1cdd504c2a991071505b2e4f541791a7f;hp=520e3bd701408f913d9e3497762d7a4cc43e2e19;hpb=eccaad18aa815bb3334e205b97c220f675e6d5a5;p=helm.git

diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csubt/defs.ma b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csubt/defs.ma
index 520e3bd70..8b92e30f2 100644
--- a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csubt/defs.ma
+++ b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/csubt/defs.ma
@@ -24,6 +24,6 @@ inductive csubt (g: G): C \to (C \to Prop) \def
 (b: B).((not (eq B b Void)) \to (\forall (u1: T).(\forall (u2: T).(csubt g 
 (CHead c1 (Bind Void) u1) (CHead c2 (Bind b) u2))))))))
 | csubt_abst: \forall (c1: C).(\forall (c2: C).((csubt g c1 c2) \to (\forall 
-(u: T).(\forall (t: T).((ty3 g c2 u t) \to (csubt g (CHead c1 (Bind Abst) t) 
-(CHead c2 (Bind Abbr) u))))))).
+(u: T).(\forall (t: T).((ty3 g c1 u t) \to ((ty3 g c2 u t) \to (csubt g 
+(CHead c1 (Bind Abst) t) (CHead c2 (Bind Abbr) u)))))))).