fact: Fixpoint list_assoc x l : option Y := match l with | nil => None | (y,a)::l => if eq_X_dec x y then Some a else list_assoc x l end.
imports: List Arith Lia Permutation Undecidability.Shared.Libs.DLW.Utils(list_focus utils_tac)