---

Step * 1 1 1 1 of Lemma fset-ac-le_transitivity


1. T : Type
2. eq : EqDecider(T)
3. ac1 : fset(fset(T))
4. ac2 : fset(fset(T))
5. ac3 : fset(fset(T))
6. ∀[x:fset(T)]. ↑¬bfset-null({y ∈ ac3 | deq-f-subset(eq) y x}) supposing x ∈ ac2
7. ∀[x:fset(T)]. ↑¬bfset-null({y ∈ ac2 | deq-f-subset(eq) y x}) supposing x ∈ ac1
8. x : fset(T)
9. x ∈ ac1
10. ¬({y ∈ ac2 | deq-f-subset(eq) y x} = {} ∈ fset(fset(T)))
⊢ ¬({y ∈ ac3 | deq-f-subset(eq) y x} = {} ∈ fset(fset(T)))
BY
{ (ParallelLast
   THEN (InstLemma `fset-extensionality` [⌜fset(T)⌝;⌜deq-fset(eq)⌝]⋅ THENA Auto)
   THEN (BHyp -1 THENA Auto)
   THEN (D 0 THENA Auto)
   THEN Reduce 0
   THEN Auto
   THEN (FLemma `member-fset-filter` [-1] THENA Auto)
   THEN D -1
   THEN (RW assert_pushdownC (-1) THENA Auto)) }

1
1. T : Type
2. eq : EqDecider(T)
3. ac1 : fset(fset(T))
4. ac2 : fset(fset(T))
5. ac3 : fset(fset(T))
6. ∀[x:fset(T)]. ↑¬bfset-null({y ∈ ac3 | deq-f-subset(eq) y x}) supposing x ∈ ac2
7. ∀[x:fset(T)]. ↑¬bfset-null({y ∈ ac2 | deq-f-subset(eq) y x}) supposing x ∈ ac1
8. x : fset(T)
9. x ∈ ac1
10. {y ∈ ac3 | deq-f-subset(eq) y x} = {} ∈ fset(fset(T))
11. ∀[x,y:fset(fset(T))].  uiff(x = y ∈ fset(fset(T));∀[a:fset(T)]. uiff(a ∈ x;a ∈ y))
12. a : fset(T)
13. a ∈ {y ∈ ac2 | deq-f-subset(eq) y x}
14. a ∈ ac2
15. a ⊆ x
⊢ False

---

Latex:

---

Latex:

1.  T  :  Type
2.  eq  :  EqDecider(T)
3.  ac1  :  fset(fset(T))
4.  ac2  :  fset(fset(T))
5.  ac3  :  fset(fset(T))
6.  \mforall{}[x:fset(T)].  \muparrow{}\mneg{}\msubb{}fset-null(\{y  \mmember{}  ac3  |  deq-f-subset(eq)  y  x\})  supposing  x  \mmember{}  ac2
7.  \mforall{}[x:fset(T)].  \muparrow{}\mneg{}\msubb{}fset-null(\{y  \mmember{}  ac2  |  deq-f-subset(eq)  y  x\})  supposing  x  \mmember{}  ac1
8.  x  :  fset(T)
9.  x  \mmember{}  ac1
10.  \mneg{}(\{y  \mmember{}  ac2  |  deq-f-subset(eq)  y  x\}  =  \{\})
\mvdash{}  \mneg{}(\{y  \mmember{}  ac3  |  deq-f-subset(eq)  y  x\}  =  \{\})


By

---

Latex:
(ParallelLast
  THEN  (InstLemma  `fset-extensionality`  [\mkleeneopen{}fset(T)\mkleeneclose{};\mkleeneopen{}deq-fset(eq)\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  (BHyp  -1  THENA  Auto)
  THEN  (D  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Auto
  THEN  (FLemma  `member-fset-filter`  [-1]  THENA  Auto)
  THEN  D  -1
  THEN  (RW  assert\_pushdownC  (-1)  THENA  Auto))

---

Home Index