X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fnat%2Forder.ma;h=c21cbc64c7bf79fd5a068dcfffac921aa95647f1;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=fba54a26f7c5b728f60846ffdf1093c26bfe7340;hpb=5f77bf2f56b180e268b6acaa81a2fbb82a8fe026;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.