fact: Fixpoint tower m n := match n with | 0 => [] | S n => (tower m n) ++ (tower m n) ++ (tower m n) ++ (tower m n) ++ [m*n] end.
imports: Arith Lia List Permutation Undecidability.SetConstraints.FMsetC Undecidability.SetConstraints.Util.Facts Undecidability.Synthetic.Definitions ssreflect ssrbool ssrfun