hints polished and fixed to allow recursive inference of ext_carr

[helm.git] / helm / software / matita / nlibrary / datatypes / pairs-setoids.ma

diff --git a/helm/software/matita/nlibrary/datatypes/pairs-setoids.ma b/helm/software/matita/nlibrary/datatypes/pairs-setoids.ma
index 43c12f76897a7af60be039c9072b91bfe1d53d23..f68305720d1e9bfded42367b4fe1964c33c1fec1 100644 (file)
--- a/helm/software/matita/nlibrary/datatypes/pairs-setoids.ma
+++ b/helm/software/matita/nlibrary/datatypes/pairs-setoids.ma
@@ -42,7 +42,7 @@ unification hint 0 ≔ AA, BB;
  
 unification hint 0 ≔ S1,S2,a,b;
    R ≟ PAIR S1 S2,
-   L ≟ (pair S1 S2)
+   L ≟ pair (carr S1) (carr S2)
 (* -------------------------------------------- *) ⊢
    eq_pair S1 S2 a b ≡ eq_rel L (eq0 R) a b.