Step
*
of Lemma
mset_sum_wf
∀s:DSet. ∀a,b:MSet{s}.  (a + b ∈ MSet{s})
BY
{ (Unfold `mset_sum` 0  THEN ((UnivCD) THENA Auto) THEN ((DVar `a')  THENM (DVar `b')⋅ THENA Auto)) }
1
1. s : DSet@i'
2. a : Base
3. a1 : Base
4. a = a1 ∈ pertype(λas,bs. ((as ∈ |s| List) ∧ (bs ∈ |s| List) ∧ (as ≡(|s|) bs)))
5. a ∈ |s| List
6. a1 ∈ |s| List
7. a ≡(|s|) a1
8. b : Base
9. b1 : Base
10. b = b1 ∈ pertype(λas,bs. ((as ∈ |s| List) ∧ (bs ∈ |s| List) ∧ (as ≡(|s|) bs)))
11. b ∈ |s| List
12. b1 ∈ |s| List
13. b ≡(|s|) b1
⊢ (a @ b) = (a1 @ b1) ∈ MSet{s}
Latex:
Latex:
\mforall{}s:DSet.  \mforall{}a,b:MSet\{s\}.    (a  +  b  \mmember{}  MSet\{s\})
By
Latex:
(Unfold  `mset\_sum`  0    THEN  ((UnivCD)  THENA  Auto)  THEN  ((DVar  `a')    THENM  (DVar  `b')\mcdot{}  THENA  Auto))
Home
Index