Step
*
of Lemma
interleaving_symmetry
∀[T:Type]. ∀L,L1,L2:T List.  (interleaving(T;L1;L2;L) 
⇐⇒ interleaving(T;L2;L1;L))
BY
{ (Unfold `interleaving` 0
   THEN Auto'
   THEN (All (Unfold `disjoint_sublists`))
   THEN ExRepD
   THEN InstConcl [f2;f1]⋅
   THEN Auto
   THEN SimpConcl
   THEN Auto'
   THEN (AllHyps (InstHyp [j2; j1]))⋅
   THEN Auto) }
Latex:
Latex:
\mforall{}[T:Type].  \mforall{}L,L1,L2:T  List.    (interleaving(T;L1;L2;L)  \mLeftarrow{}{}\mRightarrow{}  interleaving(T;L2;L1;L))
By
Latex:
(Unfold  `interleaving`  0
  THEN  Auto'
  THEN  (All  (Unfold  `disjoint\_sublists`))
  THEN  ExRepD
  THEN  InstConcl  [f2;f1]\mcdot{}
  THEN  Auto
  THEN  SimpConcl
  THEN  Auto'
  THEN  (AllHyps  (InstHyp  [j2;  j1]))\mcdot{}
  THEN  Auto)
Home
Index