fact: Fixpoint recalg_rect k f { struct f } : @P k f := match f with | ra_cst n => Pcst n | ra_zero => Pzero | ra_succ => Psucc | ra_proj p => Pproj p | ra_comp f gj => Pcomp _ [|f|] (fun p => [|vec_pos gj p|]) | ra_rec f g => Prec [|f|] [|g|] | ra_min f => Pmin [|f|] end where "[| f |]" := (@recalg_rect _ f).
imports: Arith Lia List Bool Eqdep_dec Undecidability.Shared.Libs.DLW(utils_tac utils_nat utils_list finite pos vec) Undecidability.MuRec.MuRec