---

Step * 1 of Lemma oal_neg_keys_invar


1. a : PosetSig@i'
2. b : GrpSig@i'
3. ps : (|a| × |b|) List@i
⊢ map(λz.(fst(z));map(λkv.<fst(kv), ~ (snd(kv))>;ps)) = map(λz.(fst(z));ps) ∈ (|a| List)
BY
{ ((RWH (LemmaWithC [`C',|a|] `map_map`) 0) THENA Auto) }

1
1. a : PosetSig@i'
2. b : GrpSig@i'
3. ps : (|a| × |b|) List@i
⊢ map((λz.(fst(z))) o (λkv.<fst(kv), ~ (snd(kv))>);ps) = map(λz.(fst(z));ps) ∈ (|a| List)

---

Latex:

---

Latex:

1.  a  :  PosetSig@i'
2.  b  :  GrpSig@i'
3.  ps  :  (|a|  \mtimes{}  |b|)  List@i
\mvdash{}  map(\mlambda{}z.(fst(z));map(\mlambda{}kv.<fst(kv),  \msim{}  (snd(kv))>ps))  =  map(\mlambda{}z.(fst(z));ps)


By

---

Latex:
((RWH  (LemmaWithC  [`C',|a|]  `map\_map`)  0)  THENA  Auto)

---

Home Index