fact: Fixpoint insert l1 c := match c with | nil => l1:: nil | l2 :: c' => match l1 ?= l2 with | Lt => if l1 lxor l2 =? 1 then C._true else l1 :: c | Eq => c | Gt => if l1 lxor l2 =? 1 then C._true else l2 :: insert l1 c' end end.
imports: List Bool Int63 Psatz Ring63 PArray Misc Ring