fact: Variables (eq_dec : forall x y : So, {x=y}+{~x=y}) (I J : So -> set Te) (a : So) (IJa : I a [<=] J a) (IJna : forall b, b <> a -> I b [=] J b).
imports: Coq(Morphisms Basics Lia) CoLoR(SN VecUtil LogicUtil SetUtil)