From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 12 Dec 2011 23:53:16 +0000 (+0000)
Subject: pair => mk_Prod (one more was left in notation)
X-Git-Tag: make_still_working~2019
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=c2f420fb8220d6a3ea4b4b5fc9f686c8bc40984c;p=helm.git

pair => mk_Prod (one more was left in notation)
---

diff --git a/matita/matita/lib/basics/types.ma b/matita/matita/lib/basics/types.ma
index 697cf10a4..060ebb06e 100644
--- a/matita/matita/lib/basics/types.ma
+++ b/matita/matita/lib/basics/types.ma
@@ -109,7 +109,7 @@ for @{ match $t return λ${ident x}.$eq $T $x $t → $U with [ mk_Prod (${fresh
 
 notation > "hvbox('let' 〈ident w,ident x,ident y,ident z〉 ≝ t 'in' s)"
  with precedence 10
-for @{ match $t with [ mk_Prod ${fresh wx} ${fresh yz} ⇒ match ${fresh wx} with [ mk_Prod ${ident w} ${ident x} ⇒ match ${fresh yz} with [ pair ${ident y} ${ident z} ⇒ $s ] ] ] }.
+for @{ match $t with [ mk_Prod ${fresh wx} ${fresh yz} ⇒ match ${fresh wx} with [ mk_Prod ${ident w} ${ident x} ⇒ match ${fresh yz} with [ mk_Prod ${ident y} ${ident z} ⇒ $s ] ] ] }.
 
 notation > "hvbox('let' 〈ident x,ident y,ident z〉 ≝ t 'in' s)"
  with precedence 10