Step
*
of Lemma
agree_on_common_symmetry
No Annotations
∀[T:Type]. ∀as,bs:T List.  (agree_on_common(T;as;bs) 
⇒ agree_on_common(T;bs;as))
BY
{ ((((InductionOnList THEN InductionOnList) THEN RecUnfold `agree_on_common` 0) THEN Reduce 0) THEN SimpConcl) }
1
1. [T] : Type
2. u : T
3. v : T List
4. ∀bs:T List. (agree_on_common(T;v;bs) 
⇒ agree_on_common(T;bs;v))
5. u1 : T
6. v1 : T List
7. agree_on_common(T;[u / v];v1) 
⇒ agree_on_common(T;v1;[u / v])
⊢ (((¬(u ∈ [u1 / v1])) ∧ agree_on_common(T;v;[u1 / v1]))
∨ ((¬(u1 ∈ [u / v])) ∧ agree_on_common(T;[u / v];v1))
∨ ((u = u1 ∈ T) ∧ agree_on_common(T;v;v1)))
⇒ (((¬(u1 ∈ [u / v])) ∧ agree_on_common(T;v1;[u / v]))
   ∨ ((¬(u ∈ [u1 / v1])) ∧ agree_on_common(T;[u1 / v1];v))
   ∨ ((u1 = u ∈ T) ∧ agree_on_common(T;v1;v)))
Latex:
Latex:
No  Annotations
\mforall{}[T:Type].  \mforall{}as,bs:T  List.    (agree\_on\_common(T;as;bs)  {}\mRightarrow{}  agree\_on\_common(T;bs;as))
By
Latex:
((((InductionOnList  THEN  InductionOnList)  THEN  RecUnfold  `agree\_on\_common`  0)  THEN  Reduce  0)
  THEN  SimpConcl
  )
Home
Index