fact: Hypothesis (H1 : finite_t Y) (H3 : forall x y, { R x y } + { ~ R x y }) (H6 : forall x y1 y2, y1 ≈ y2 -> R x y2 -> R x y1).
imports: List Arith Lia Bool Eqdep_dec Undecidability.Shared.Libs.DLW.Utils(utils_list finite)