At: decls mng singleton 1 1 1 1 2 1 2
1. l1: Label
2. d3: SimpleType
3. rho: Decl
4. s: l:Label
if l =
l1
[[d3]] rho else Top fi
5. x1: Label
6. x: if l1 = l1 [[d3]] rho else Top fi
7. lbl: Label
8. d2: SimpleType
9. < lbl,d2 > = < l1,d3 > 
dec()
10. lbl = l1
11. d2 = d3
12. x1 = lbl
x [[d2]] rho
By:
EqLblReflexive 6
THEN
Subst (d2 ~ d3) 0
Generated subgoals:None
About:
