fact: Fixpoint insert_keep l1 c := match c with | nil => l1:: nil | l2 :: c' => match l1 ?= l2 with | Lt | Eq => l1 :: c | Gt => l2 :: insert_keep l1 c' end end.
imports: List Bool Int63 Psatz Ring63 PArray Misc Ring