proposition: Fact ra_succ_tot : total [| ra_succ |].
proof: Proof. intros v; exists (S (vec_head v)); 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