X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fdatatypes%2Fpairs.ma;h=dfff0c3f8a1443620fb92a591cb64053196c919f;hb=a90c31c1b53222bd6d57360c5ba5c2d0fe7d5207;hp=2165accbb557c0d2c30b291e235e1d3a274b70d1;hpb=4377e950998c9c63937582952a79975947aa9a45;p=helm.git

diff --git a/helm/software/matita/nlibrary/datatypes/pairs.ma b/helm/software/matita/nlibrary/datatypes/pairs.ma
index 2165accbb..dfff0c3f8 100644
--- a/helm/software/matita/nlibrary/datatypes/pairs.ma
+++ b/helm/software/matita/nlibrary/datatypes/pairs.ma
@@ -17,15 +17,4 @@ include "logic/pts.ma".
 nrecord pair (A,B: Type[0]) : Type[0] ≝
  { fst: A;
    snd: B
- }.
-
-interpretation "Pair construction" 'pair x y = (mk_pair ? ? x y).
-
-interpretation "Product" 'product x y = (pair x y).
-
-interpretation "pair pi1" 'pi1 = (fst ? ?).
-interpretation "pair pi2" 'pi2 = (snd ? ?).
-interpretation "pair pi1" 'pi1a x = (fst ? ? x).
-interpretation "pair pi2" 'pi2a x = (snd ? ? x).
-interpretation "pair pi1" 'pi1b x y = (fst ? ? x y).
-interpretation "pair pi2" 'pi2b x y = (snd ? ? x y).
+ }.
\ No newline at end of file