fact: Fixpoint Vrel1 n A (R : relation A) : relation (vector A n) := match n with | O => fun _ _ => False | S n => fun v1 v2 => symprod R (Vrel1 R) (Vhead_tail v1) (Vhead_tail v2) end.
imports: CoLoR(LogicUtil VecUtil RelUtil NatUtil SN)