X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLambdaDelta-1%2Fpc3%2Fdec.ma;h=74d45cd176532519bb6cc29494b44baa50a95b44;hb=81432e2003b9c1514975e006775fe59056e125a4;hp=70a73062f2073ebd460c9a04cf8e5d6083d3cdb4;hpb=d0982534aee06a30f91a06d2f3e82834b132a3d3;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/pc3/dec.ma b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/pc3/dec.ma index 70a73062f..74d45cd17 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/pc3/dec.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/LambdaDelta-1/pc3/dec.ma @@ -14,11 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "ty3/arity_props.ma". +include "LambdaDelta-1/ty3/arity_props.ma". -include "ty3/pr3.ma". - -include "nf2/fwd.ma". +include "LambdaDelta-1/nf2/fwd.ma". theorem pc3_dec: \forall (g: G).(\forall (c: C).(\forall (u1: T).(\forall (t1: T).((ty3 g c @@ -137,7 +135,7 @@ u0) x4 x6))))).(let H27 \def (eq_ind T x (\lambda (t: T).(\forall (t0: T).((eq T t (THead (Bind Abst) x0 t0)) \to (\forall (P: Prop).P)))) H10 (THead (Bind Abst) x5 x6) H24) in (let H28 \def (eq_ind T x (\lambda (t: T).(nf2 c t)) H5 (THead (Bind Abst) x5 x6) H24) in (let H29 \def -(nf2_gen_abst c x5 x6 H28) in (and_ind (nf2 c x5) (nf2 (CHead c (Bind Abst) +(nf2_gen_abst c x5 x6 H28) in (land_ind (nf2 c x5) (nf2 (CHead c (Bind Abst) x5) x6) False (\lambda (H30: (nf2 c x5)).(\lambda (_: (nf2 (CHead c (Bind Abst) x5) x6)).(let H32 \def (nf2_pr3_confluence c x0 H8 x5 H30 u2 H7) in (H27 x6 (sym_eq T (THead (Bind Abst) x0 x6) (THead (Bind Abst) x5 x6)