fact: CoFixpoint general_omega (A:Type) (u v:LList A) : LList A := match v with | LNil => u | LCons b v' => match u with | LNil => LCons b (general_omega v' (LCons b v')) | LCons a u' => LCons a (general_omega u' (LCons b v')) end end.
imports: Arith List RelationClasses