fact: Fixpoint ra_project n (p : pos n) : recalg 1 := match p with | pos_fst => ra_decomp_l | pos_nxt p => ra_comp (ra_project p) (ra_decomp_r##vec_nil) end.
imports: Arith Lia Undecidability.Shared.Libs.DLW.Utils(utils_tac utils_nat gcd crt sums) Undecidability.Shared.Libs.DLW.Vec(pos vec) Undecidability.MuRec.Util(recalg recomp prim_min ra_utils)