X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FLAMBDA-TYPES%2FLevel-1%2FLambdaDelta%2Fdrop%2Fdefs.ma;h=aa283e8f42b20c1094ef6ac06e6b783dea532a2d;hb=5412a7f12ed2034b4dfb6104440a2308d6a6e8e1;hp=aedcf4a3ae10a1ed7ca535265fe9653398f30980;hpb=b6c399fc59c61c1071c942f539fabda4d74bb922;p=helm.git diff --git a/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/drop/defs.ma b/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/drop/defs.ma index aedcf4a3a..aa283e8f4 100644 --- a/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/drop/defs.ma +++ b/helm/software/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/drop/defs.ma @@ -20,6 +20,8 @@ include "C/defs.ma". include "lift/defs.ma". +include "r/defs.ma". + inductive drop: nat \to (nat \to (C \to (C \to Prop))) \def | drop_refl: \forall (c: C).(drop O O c c) | drop_drop: \forall (k: K).(\forall (h: nat).(\forall (c: C).(\forall (e: