fact: Fixpoint find (x: X) (A: list X) : option nat := match A with | nil => None | y :: A => if x == y then Some 0 else option_map S (find x A) end.
imports: List Arith Lia Undecidability.HOU(std.tactics std.lists.basics std.decidable)