Step
*
2
of Lemma
l_disjoint-fpf-dom
1. A : Type
2. eq : EqDecider(A)
3. f : d:A List × (a:{a:A| (a ∈ d)}  ─→ Top)
4. L : A List
5. ∀[a:A]. ¬(a ∈ L) supposing ↑a ∈b fst(f))
6. x : A@i
⊢ ¬((x ∈ fst(f)) ∧ (x ∈ L))
BY
{ (D 0 THEN Auto THEN (InstHyp [⌈x⌉] (-4))⋅ THEN Auto THEN RWO "assert-deq-member" 0 THEN Auto) }
Latex:
1.  A  :  Type
2.  eq  :  EqDecider(A)
3.  f  :  d:A  List  \mtimes{}  (a:\{a:A|  (a  \mmember{}  d)\}    {}\mrightarrow{}  Top)
4.  L  :  A  List
5.  \mforall{}[a:A].  \mneg{}(a  \mmember{}  L)  supposing  \muparrow{}a  \mmember{}\msubb{}  fst(f))
6.  x  :  A@i
\mvdash{}  \mneg{}((x  \mmember{}  fst(f))  \mwedge{}  (x  \mmember{}  L))
By
(D  0  THEN  Auto  THEN  (InstHyp  [\mkleeneopen{}x\mkleeneclose{}]  (-4))\mcdot{}  THEN  Auto  THEN  RWO  "assert-deq-member"  0  THEN  Auto)
Home
Index