fact: Fixpoint pos T := match T with | Base _ => True | Arr A B => neg A /\ pos B end with neg T := match T with | Base b => b <> a | Arr A B => pos A /\ neg B end.
imports: Coq(Relations) CoLoR(VecUtil LogicUtil OrdUtil NatUtil)