---

Step * 1 1 1 2 of Lemma fpf-join-list-ap-disjoint


1. A : Type
2. eq : EqDecider(A)
3. B : A ─→ Type
4. L : a:A fp-> B[a] List
5. x : A
6. ↑x ∈ dom(⊕(L))
7. i : ℕ||L||
8. ↑x ∈ dom(L[i])
9. ⊕(L)(x) = L[i](x) ∈ B[x]
10. (∀f,g∈L.  ∀x:A. (¬((↑x ∈ dom(f)) ∧ (↑x ∈ dom(g)))))
11. f : a:A fp-> B[a]
12. i1 : ℕ
13. i1 < ||L||
14. f = L[i1] ∈ a:A fp-> B[a]
15. ↑x ∈ dom(f)
16. ¬i < i1
⊢ i = i1 ∈ ℤ
BY
{ (Decide ⌈i1 < i⌉⋅ THEN Auto') }

1
1. A : Type
2. eq : EqDecider(A)
3. B : A ─→ Type
4. L : a:A fp-> B[a] List
5. x : A
6. ↑x ∈ dom(⊕(L))
7. i : ℕ||L||
8. ↑x ∈ dom(L[i])
9. ⊕(L)(x) = L[i](x) ∈ B[x]
10. (∀f,g∈L.  ∀x:A. (¬((↑x ∈ dom(f)) ∧ (↑x ∈ dom(g)))))
11. f : a:A fp-> B[a]
12. i1 : ℕ
13. i1 < ||L||
14. f = L[i1] ∈ a:A fp-> B[a]
15. ↑x ∈ dom(f)
16. ¬i < i1
17. i1 < i
⊢ i = i1 ∈ ℤ

---

Latex:



1.  A  :  Type
2.  eq  :  EqDecider(A)
3.  B  :  A  {}\mrightarrow{}  Type
4.  L  :  a:A  fp->  B[a]  List
5.  x  :  A
6.  \muparrow{}x  \mmember{}  dom(\moplus{}(L))
7.  i  :  \mBbbN{}||L||
8.  \muparrow{}x  \mmember{}  dom(L[i])
9.  \moplus{}(L)(x)  =  L[i](x)
10.  (\mforall{}f,g\mmember{}L.    \mforall{}x:A.  (\mneg{}((\muparrow{}x  \mmember{}  dom(f))  \mwedge{}  (\muparrow{}x  \mmember{}  dom(g)))))
11.  f  :  a:A  fp->  B[a]
12.  i1  :  \mBbbN{}
13.  i1  <  ||L||
14.  f  =  L[i1]
15.  \muparrow{}x  \mmember{}  dom(f)
16.  \mneg{}i  <  i1
\mvdash{}  i  =  i1


By

(Decide  \mkleeneopen{}i1  <  i\mkleeneclose{}\mcdot{}  THEN  Auto')

---

Home Index