X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLevel-1%2FLambdaDelta%2Fsn3%2Fdefs.ma;h=03b7e952a9c0d074cd00bf97fd3f6109c9ab7251;hb=2833624d7e2bfea7525f75acd1e9284080eb6ea8;hp=46e2fda80f081a1370c7e3a1069d511d7f19e620;hpb=6d2ca42f41faba2789b2bd61792e8b43aca40713;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/sn3/defs.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/sn3/defs.ma index 46e2fda80..03b7e952a 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/sn3/defs.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/sn3/defs.ma @@ -18,7 +18,7 @@ set "baseuri" "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/sn3/defs". include "pr3/defs.ma". -inductive sn3 (c:C): T \to Prop \def +inductive sn3 (c: C): T \to Prop \def | sn3_sing: \forall (t1: T).(((\forall (t2: T).((((eq T t1 t2) \to (\forall (P: Prop).P))) \to ((pr3 c t1 t2) \to (sn3 c t2))))) \to (sn3 c t1)).