From: Claudio Sacerdoti Coen Date: Sun, 4 Oct 2009 14:33:10 +0000 (+0000) Subject: ... X-Git-Tag: make_still_working~3391 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=69a3ef4490fde85cd618b5df8596ca12199c02fc;p=helm.git ... --- diff --git a/helm/software/matita/nlibrary/nat/order.ma b/helm/software/matita/nlibrary/nat/order.ma index fba54a26f..c21cbc64c 100644 --- a/helm/software/matita/nlibrary/nat/order.ma +++ b/helm/software/matita/nlibrary/nat/order.ma @@ -42,8 +42,8 @@ nlemma lt_O_Sn: ∀n. lt O (S n). #n; napply le_S_S; napply le_O_n. nqed. -ndefinition Nat_: nat → qpowerclass NAT. - #n; napply mk_qpowerclass +ndefinition Nat_: nat → ext_powerclass NAT. + #n; napply mk_ext_powerclass [ napply {m | m < n} | #x; #x'; #H; nrewrite < H; napply mk_iff; #K; nassumption (* refl non va *) ] nqed.