X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Fsd.ma;h=2bf43b5ee9dc62b368699f3921e19a011884da5b;hb=5832735b721c0bd8567c8f0be761a9136363a2a6;hp=a16d19042f255cb88a34ec19517afbe257bc0ade;hpb=064980eacc2efe70ffee96134d75dfa37506fc36;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/sd.ma b/matita/matita/contribs/lambdadelta/basic_2/static/sd.ma index a16d19042..2bf43b5ee 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/static/sd.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/static/sd.ma @@ -84,7 +84,7 @@ definition sd_SO: ∀h. nat → sd h ≝ λh,k. mk_sd h (deg_SO h k) …. ] defined. -let rec sd_d (h:sh) (k:nat) (d:nat) on d : sd h ≝ +rec definition sd_d (h:sh) (k:nat) (d:nat) on d : sd h ≝ match d with [ O ⇒ sd_O h | S d ⇒ match d with