X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=weblib%2Fbasics%2Ftypes.ma;h=a07cf29ea0e9c23f862e5ce04b311a2db7a99b3b;hb=69e4002db716a61af40c079d578eae0028c4316c;hp=586ce31ce7bb527d251d3d1a9ddf5704f9163a2a;hpb=f848433620419e71cd19ec0b4f58c717ac50f85e;p=helm.git

diff --git a/weblib/basics/types.ma b/weblib/basics/types.ma
index 586ce31ce..a07cf29ea 100644
--- a/weblib/basics/types.ma
+++ b/weblib/basics/types.ma
@@ -39,7 +39,7 @@ interpretation "pair pi1" 'pi1b x y = (fst ? ? x y).
 interpretation "pair pi2" 'pi2b x y = (snd ? ? x y).
 
 theorem eq_pair_fst_snd: ∀A,B.∀p:A a title="Product" href="cic:/fakeuri.def(1)"×/a B.
-  p a title="leibnitz's equality" href="cic:/fakeuri.def(1)"=/a a title="Pair construction" href="cic:/fakeuri.def(1)"〈/a a title="pair pi1" href="cic:/fakeuri.def(1)"\fst/a p, a title="pair pi2" href="cic:/fakeuri.def(1)"\snd/a p 〉.
+  p a title="leibnitz's equality" href="cic:/fakeuri.def(1)"=/a a title="Pair construction" href="cic:/fakeuri.def(1)"〈/a a title="pair pi1" href="cic:/fakeuri.def(1)"\fst/a p, a title="pair pi2" href="cic:/fakeuri.def(1)"\snd/a p 〉.
 #A #B #p (cases p) // qed.
 
 (* sum *)