]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/nlibrary/nat/order.ma
update in groud_2 and models
[helm.git] / helm / software / matita / nlibrary / nat / order.ma
index fba54a26f7c5b728f60846ffdf1093c26bfe7340..c21cbc64c7bf79fd5a068dcfffac921aa95647f1 100644 (file)
@@ -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.