proposition: Fact ra_cst_tot n : total [| ra_cst n |].
proof: Proof. intros ?; exists n; simpl; red; auto. Qed.
imports: Arith Lia List Bool Eqdep_dec Undecidability.Shared.Libs.DLW(utils_tac utils_nat utils_list finite pos vec) Undecidability.MuRec.MuRec