fact: Definition lhs_args l r := match l as l return forall h : rule l r, Tes (lhs_nb_args h) with | Def.App (Def.App (Def.App (Def.Fun _) l1) l2) l3 => fun _ => [l1; l2; l3] | _ => fun _ => [FZero; FZero; FZero] end.
imports: CoLoR(LogicUtil OrdUtil LSimple RelUtil) Coq(Structures.Equalities Lia) Coq(Compare_dec) CoLoR(VecUtil) CoLoR(LCompRewrite)