Step
*
1
of Lemma
assert_of_eq_mset
1. s : DSet@i'
2. a : MSet{s}@i
3. b : MSet{s}@i
⊢ ↑eq_mset{s}(a,b) 
⇐⇒ a = b ∈ MSet{s}
BY
{ % D on quot hyps requires an equal term in concl % 
 
((CSquash) THENA Auto) 
THEN UseEqWitness Ax }
1
1. s : DSet@i'
2. a : MSet{s}@i
3. b : MSet{s}@i
⊢ Ax = Ax ∈ (↓↑eq_mset{s}(a,b) 
⇐⇒ a = b ∈ MSet{s})
Latex:
Latex:
1.  s  :  DSet@i'
2.  a  :  MSet\{s\}@i
3.  b  :  MSet\{s\}@i
\mvdash{}  \muparrow{}eq\_mset\{s\}(a,b)  \mLeftarrow{}{}\mRightarrow{}  a  =  b
By
Latex:
\%  D  on  quot  hyps  requires  an  equal  term  in  concl  \% 
 
((CSquash)  THENA  Auto) 
THEN  UseEqWitness  Ax
Home
Index