---

Step * 1 1 1 1 2 of Lemma assert_of_eq_mset


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
14. a = b ∈ MSet{s}@i
⊢ ↑(a ≡b b)
BY
{ (EqTypeHD (-1) THEN 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
14. a = b ∈ pertype(λas,bs. ((as ∈ |s| List) ∧ (bs ∈ |s| List) ∧ (as ≡(|s|) bs)))
15. [%13] : (a ∈ |s| List) ∧ (b ∈ |s| List) ∧ (a ≡(|s|) b)
⊢ ↑(a ≡b b)

---

Latex:

---

Latex:

1.  s  :  DSet@i'
2.  a  :  Base
3.  a1  :  Base
4.  a  =  a1
5.  a  \mmember{}  |s|  List
6.  a1  \mmember{}  |s|  List
7.  a  \mequiv{}(|s|)  a1
8.  b  :  Base
9.  b1  :  Base
10.  b  =  b1
11.  b  \mmember{}  |s|  List
12.  b1  \mmember{}  |s|  List
13.  b  \mequiv{}(|s|)  b1
14.  a  =  b@i
\mvdash{}  \muparrow{}(a  \mequiv{}\msubb{}  b)


By

---

Latex:
(EqTypeHD  (-1)  THEN  Auto)

---

Home Index