X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fdatatypes%2Fpairs-setoids.ma;h=f68305720d1e9bfded42367b4fe1964c33c1fec1;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=43c12f76897a7af60be039c9072b91bfe1d53d23;hpb=4b940bfbeab1181dd18c56e46761f5e6690d9f9d;p=helm.git

diff --git a/helm/software/matita/nlibrary/datatypes/pairs-setoids.ma b/helm/software/matita/nlibrary/datatypes/pairs-setoids.ma
index 43c12f768..f68305720 100644
--- 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.