fact: Fixpoint itrev {A} (lst acc : list A) := match lst with | [] => acc | h :: t => itrev t (h :: acc) end.
imports: Hammer(Tactics) Arith ZArith List Lia Hammer(Hints) Reals Lra Hammer(Reflect) Nat Psatz String Relations Sorting.Permutation