X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly2%2Fnum%2Fbyte8.ma;h=9e92c2952cafa14b99c3dd044162617a78df5056;hb=433d9c9612c1557e03a549e004c796c1137d4b4a;hp=c45d71c6e972dec0025692c65c5d879ba104b5c3;hpb=bd112857523fc543c78cd29b74417585033ec464;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly2/num/byte8.ma b/helm/software/matita/contribs/ng_assembly2/num/byte8.ma
index c45d71c6e..9e92c2952 100755
--- a/helm/software/matita/contribs/ng_assembly2/num/byte8.ma
+++ b/helm/software/matita/contribs/ng_assembly2/num/byte8.ma
@@ -35,9 +35,12 @@ ndefinition mk_byte8 ≝ λe1,e2.mk_comp_num exadecim e1 e2.
 notation "〈x,y〉" non associative with precedence 80
  for @{ mk_comp_num exadecim $x $y }.
 
+ndefinition byte8_is_comparable ≝ cn_is_comparable exadecim_is_comparable.
 ndefinition byte8_is_comparable_ext ≝ cn_is_comparable_ext exadecim_is_comparable_ext.
 unification hint 0 ≔ ⊢ carr (comp_base byte8_is_comparable_ext) ≡ comp_num exadecim.
 unification hint 0 ≔ ⊢ carr (comp_base byte8_is_comparable_ext) ≡ byte8.
+unification hint 0 ≔ ⊢ carr byte8_is_comparable ≡ comp_num exadecim.
+unification hint 0 ≔ ⊢ carr byte8_is_comparable ≡ byte8.
 
 (* operatore estensione unsigned *)
 ndefinition extu_b8 ≝ λe2.〈zeroc ?,e2〉.