Rewrite (u.3758aa3ddc38cffa23da0eeb3fa7893a.rocq-runtime.9.0.0.doc.rocq-runtime.tactics.Rewrite)

Sourceexception RewriteFailure of Environ.env * Evd.evar_map * Pretype_errors.pretype_error

Sourcetype unary_strategy =

| Subterms
| Subterm
| Innermost
| Outermost
| Bottomup
| Topdown
| Progress
| Try
| Any
| Repeat

Sourcetype binary_strategy =

| Compose

Sourcetype nary_strategy =

| Choice

Sourcetype ('constr, 'redexpr, 'id) strategy_ast =

| StratId
| StratFail
| StratRefl
| StratUnary of unary_strategy * ('constr, 'redexpr, 'id) strategy_ast
| StratBinary of binary_strategy * ('constr, 'redexpr, 'id) strategy_ast * ('constr, 'redexpr, 'id) strategy_ast
| StratNAry of nary_strategy * ('constr, 'redexpr, 'id) strategy_ast list
| StratConstr of 'constr * bool
| StratTerms of 'constr list
| StratHints of bool * string
| StratEval of 'redexpr
| StratFold of 'constr
| StratVar of 'id
| StratFix of 'id * ('constr, 'redexpr, 'id) strategy_ast

Sourcetype rewrite_proof =

| RewPrf of EConstr.constr * EConstr.constr
| RewCast of Constr.cast_kind

Sourcetype evars = Evd.evar_map * Evar.Set.t

Sourcetype rewrite_result_info = {

rew_car : EConstr.constr;
rew_from : EConstr.constr;
rew_to : EConstr.constr;
rew_prf : rewrite_proof;
rew_evars : evars;

}

Sourcetype rewrite_result =

| Fail
| Identity
| Success of rewrite_result_info

Sourcetype strategy

Source

val strategy_of_ast : 
  (Glob_term.glob_constr * EConstr.constr Tactypes.delayed_open,
    Redexpr.red_expr Tactypes.delayed_open,
    Names.Id.t)
    strategy_ast ->
  strategy

Source

val map_strategy : 
  ('a -> 'b) ->
  ('c -> 'd) ->
  ('e -> 'f) ->
  ('a, 'c, 'e) strategy_ast ->
  ('b, 'd, 'f) strategy_ast

Source

val pr_strategy : 
  ('a -> Pp.t) ->
  ('b -> Pp.t) ->
  ('c -> Pp.t) ->
  ('a, 'b, 'c) strategy_ast ->
  Pp.t

Source

val cl_rewrite_clause_strat : 
  strategy ->
  Names.Id.t option ->
  unit Proofview.tactic

Entry point for user-level "rewrite_strat"

Source

val cl_rewrite_clause : 
  EConstr.t Tactypes.with_bindings Tactypes.delayed_open ->
  bool ->
  Locus.occurrences ->
  Names.Id.t option ->
  unit Proofview.tactic

Entry point for user-level "setoid_rewrite"

Source

val is_applied_rewrite_relation : 
  Environ.env ->
  Evd.evar_map ->
  EConstr.rel_context ->
  EConstr.constr ->
  EConstr.types option

Source

val get_reflexive_proof : 
  Environ.env ->
  Evd.evar_map ->
  EConstr.constr ->
  EConstr.constr ->
  Evd.evar_map * EConstr.constr

Source

val get_symmetric_proof : 
  Environ.env ->
  Evd.evar_map ->
  EConstr.constr ->
  EConstr.constr ->
  Evd.evar_map * EConstr.constr

Source

val get_transitive_proof : 
  Environ.env ->
  Evd.evar_map ->
  EConstr.constr ->
  EConstr.constr ->
  Evd.evar_map * EConstr.constr

Sourceval setoid_symmetry : unit Proofview.tactic

Sourceval setoid_symmetry_in : Names.Id.t -> unit Proofview.tactic

Sourceval setoid_reflexivity : unit Proofview.tactic

Sourceval setoid_transitivity : EConstr.constr option -> unit Proofview.tactic

Source

val apply_strategy : 
  strategy ->
  Environ.env ->
  Names.Id.Set.t ->
  EConstr.constr ->
  (bool * EConstr.constr) ->
  evars ->
  rewrite_result

Sourcemodule Internal : sig ... end