---

Step * 1 2 1 1 of Lemma append_comm


1. T : Type
2. a1 : T
3. as' : T List
4. a : ∀bs:T List. ((as' @ bs) ≡(T) (bs @ as'))
5. bs : T List
⊢ [a1 / (bs @ as')] ≡(T) (bs @ [a1 / as'])
BY
{ TACTIC:(RWN 2 cons_to_appendC 0 THENM (RWH (RevLemmaC `append_assoc`) 0 THENA Auto)) }

1
1. T : Type
2. a1 : T
3. as' : T List
4. a : ∀bs:T List. ((as' @ bs) ≡(T) (bs @ as'))
5. bs : T List
⊢ [a1 / (bs @ as')] ≡(T) ((bs @ [a1]) @ as')

---

Latex:

---

Latex:

1.  T  :  Type
2.  a1  :  T
3.  as'  :  T  List
4.  a  :  \mforall{}bs:T  List.  ((as'  @  bs)  \mequiv{}(T)  (bs  @  as'))
5.  bs  :  T  List
\mvdash{}  [a1  /  (bs  @  as')]  \mequiv{}(T)  (bs  @  [a1  /  as'])


By

---

Latex:
TACTIC:(RWN  2  cons\_to\_appendC  0  THENM  (RWH  (RevLemmaC  `append\_assoc`)  0  THENA  Auto))

---

Home Index