ComFixpoint (coq-core.ComFixpoint)

Fixpoints and cofixpoints

Entry points for the vernacular commands Fixpoint and CoFixpoint

val do_fixpoint_interactive : scope:Locality.definition_scope -> ?clearbody:bool -> poly:bool ->
?typing_flags:Declarations.typing_flags -> ?user_warns:UserWarn.t -> Vernacexpr.fixpoint_expr list -> Declare.Proof.t

val do_fixpoint : ?scope:Locality.definition_scope -> ?clearbody:bool -> poly:bool -> ?typing_flags:Declarations.typing_flags ->
?user_warns:UserWarn.t -> ?using:Vernacexpr.section_subset_expr -> Vernacexpr.fixpoint_expr list -> unit

val do_cofixpoint_interactive : scope:Locality.definition_scope -> ?clearbody:bool -> poly:bool ->
?typing_flags:Declarations.typing_flags -> ?user_warns:UserWarn.t -> Vernacexpr.cofixpoint_expr list -> Declare.Proof.t

val do_cofixpoint : scope:Locality.definition_scope -> ?clearbody:bool -> poly:bool -> ?typing_flags:Declarations.typing_flags ->
?user_warns:UserWarn.t -> ?using:Vernacexpr.section_subset_expr -> Vernacexpr.cofixpoint_expr list -> unit

Internal API

Typing global fixpoints and cofixpoint_expr

val adjust_rec_order : structonly:bool -> Constrexpr.local_binder_expr list -> Constrexpr.recursion_order_expr option -> Names.lident option

type ('constr, 'types, 'r) recursive_preentry = Names.Id.t list * 'r list * 'constr option list * 'types list

names / relevance / defs / types

val interp_recursive : Environ.env -> program_mode:bool -> cofix:bool ->
Names.lident option Vernacexpr.fix_expr_gen list -> (Environ.env * EConstr.named_context * UState.universe_decl * Evd.evar_map) * (EConstr.t, EConstr.types, EConstr.ERelevance.t) recursive_preentry * (EConstr.rel_context * Impargs.manual_implicits * int option) list

Exported for Program

Exported for Funind

val interp_fixpoint : ?check_recursivity:bool -> ?typing_flags:Declarations.typing_flags -> cofix:bool ->
Names.lident option Vernacexpr.fix_expr_gen list -> (Constr.t, Constr.types, Sorts.relevance) recursive_preentry * UState.universe_decl * UState.t * (EConstr.rel_context * Impargs.manual_implicits * int option) list

val compute_possible_guardness_evidences : (('a, 'b, 'r) Context.Rel.pt * 'c * int option) -> int list

Very private function, do not use