∀[T:Type]. ∀L2,L1:T List. (L1 ⊆ L2
⇐⇒ sub-co-list(T;L1;L2))
{ InductionOnList }
1. [T] : Type
⊢ ∀L1:T List. (L1 ⊆ []
⇐⇒ sub-co-list(T;L1;[]))
1. [T] : Type
2. u : T
3. v : T List
4. ∀L1:T List. (L1 ⊆ v
⇐⇒ sub-co-list(T;L1;v))
⊢ ∀L1:T List. (L1 ⊆ [u / v]
⇐⇒ sub-co-list(T;L1;[u / v]))