fact: Variable (X Y : Type) (R : X -> Y -> Prop) (X_discrete : forall x y : X, { x = y } + { x <> y }).
imports: List Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_list utils_nat fin_base) Undecidability.Shared.Libs.DLW.Vec(pos vec)