X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fnat%2Fnat.ma;h=e9d32973bdb02a10caba88490cd84603209feee4;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=362a5ad363dc446f8f44383565e08e6c628596d5;hpb=c6d3537eee27d05490a9555cc7326bc954b356c5;p=helm.git

diff --git a/helm/software/matita/nlibrary/nat/nat.ma b/helm/software/matita/nlibrary/nat/nat.ma
index 362a5ad36..e9d32973b 100644
--- a/helm/software/matita/nlibrary/nat/nat.ma
+++ b/helm/software/matita/nlibrary/nat/nat.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "hints_declaration.ma".
 include "logic/equality.ma".
 include "sets/setoids.ma".
 
@@ -23,4 +24,5 @@ ndefinition NAT: setoid.
  napply mk_setoid [ napply nat | napply EQ]
 nqed.
 
-unification hint 0 ((λx,y.True) (carr NAT) nat).
+alias symbol "hint_decl" = "hint_decl_Type1".
+unification hint 0 ≔ ⊢ carr NAT ≡ nat.