---

Step * 1 1 1 1 4 1 1 1 of Lemma name-morph-inv-eq


1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. x : Cname
5. (x ∈ I)
6. ↑isname(f x)
7. f x ∈ nameset(J)
8. λi.(isname(f i) ∧b (f i =z f x)) ∈ nameset(I) ⟶ 𝔹
9. I ∈ nameset(I) List
10. (x ∈ filter(λi.(isname(f i) ∧b (f i =z f x));I))
11. f x ∈ name-morph-range(f;I)
12. (name-morph-inv(I;f) (f x) ∈ I)
13. ↑(isname(f (name-morph-inv(I;f) (f x))) ∧b (f (name-morph-inv(I;f) (f x)) =z f x))
⊢ (name-morph-inv(I;f) (f x)) = x ∈ nameset(I)
BY
{ TACTIC:(MoveToConcl (-1) THEN (GenConclTerm ⌜name-morph-inv(I;f) (f x)⌝⋅ THENA Auto)) }

1
1. I : Cname List
2. J : Cname List
3. f : name-morph(I;J)
4. x : Cname
5. (x ∈ I)
6. ↑isname(f x)
7. f x ∈ nameset(J)
8. λi.(isname(f i) ∧b (f i =z f x)) ∈ nameset(I) ⟶ 𝔹
9. I ∈ nameset(I) List
10. (x ∈ filter(λi.(isname(f i) ∧b (f i =z f x));I))
11. f x ∈ name-morph-range(f;I)
12. (name-morph-inv(I;f) (f x) ∈ I)
13. v : nameset(I)@i
14. (name-morph-inv(I;f) (f x)) = v ∈ nameset(I)
⊢ (↑(isname(f v) ∧b (f v =z f x))) ⇒ (v = x ∈ nameset(I))

---

Latex:

---

Latex:

1.  I  :  Cname  List
2.  J  :  Cname  List
3.  f  :  name-morph(I;J)
4.  x  :  Cname
5.  (x  \mmember{}  I)
6.  \muparrow{}isname(f  x)
7.  f  x  \mmember{}  nameset(J)
8.  \mlambda{}i.(isname(f  i)  \mwedge{}\msubb{}  (f  i  =\msubz{}  f  x))  \mmember{}  nameset(I)  {}\mrightarrow{}  \mBbbB{}
9.  I  \mmember{}  nameset(I)  List
10.  (x  \mmember{}  filter(\mlambda{}i.(isname(f  i)  \mwedge{}\msubb{}  (f  i  =\msubz{}  f  x));I))
11.  f  x  \mmember{}  name-morph-range(f;I)
12.  (name-morph-inv(I;f)  (f  x)  \mmember{}  I)
13.  \muparrow{}(isname(f  (name-morph-inv(I;f)  (f  x)))  \mwedge{}\msubb{}  (f  (name-morph-inv(I;f)  (f  x))  =\msubz{}  f  x))
\mvdash{}  (name-morph-inv(I;f)  (f  x))  =  x


By

---

Latex:
TACTIC:(MoveToConcl  (-1)  THEN  (GenConclTerm  \mkleeneopen{}name-morph-inv(I;f)  (f  x)\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index