Module Proof_diffs
val write_diffs_option : string -> unit
Controls whether to show diffs. Takes values "on", "off", "removed"
val diff_goal_ide : Goal.goal Evd.sigma option -> Goal.goal -> Evd.evar_map -> Pp.t list * Pp.t
Computes the diff between the goals of two Proofs and returns the highlighted lists of hypotheses and conclusions.
If the strings used to display the goal are not lexable (this is believed unlikely), this routine will generate a Diff_Failure. This routine may also raise Diff_Failure under some "impossible" conditions.
If you want to make your call especially bulletproof, catch these exceptions, print a user-visible message, then recall this routine with the first argument set to None, which will skip the diff.
val diff_goal : ?og_s:Goal.goal Evd.sigma -> Goal.goal -> Evd.evar_map -> Pp.t
Computes the diff between two goals
If the strings used to display the goal are not lexable (this is believed unlikely), this routine will generate a Diff_Failure. This routine may also raise Diff_Failure under some "impossible" conditions.
If you want to make your call especially bulletproof, catch these exceptions, print a user-visible message, then recall this routine with the first argument set to None, which will skip the diff.
val tokenize_string : string -> string list
Convert a string to a list of token strings using the lexer
val pr_letype_core : bool -> Environ.env -> Evd.evar_map -> EConstr.types -> Pp.t
val pr_leconstr_core : bool -> Environ.env -> Evd.evar_map -> EConstr.constr -> Pp.t
val pr_lconstr_env : Environ.env -> Evd.evar_map -> Constr.constr -> Pp.t
val diff_concl : ?og_s:Goal.goal Evd.sigma -> Evd.evar_map -> Goal.goal -> Pp.t
Computes diffs for a single conclusion
val make_goal_map : Proof.t option -> Proof.t -> Goal.goal Evar.Map.t
Generates a map from
np
toop
that maps changed goals to their prior forms. The map doesn't include entries for unchanged goals; unchanged goals will have the same goal id in both versions.op
andnp
must be from the same proof document andop
must be for a state beforenp
.
type hyp_info
=
{
idents : string list;
rhs_pp : Pp.t;
mutable done_ : bool;
}
module StringMap : sig ... end
val diff_hyps : string list list -> hyp_info StringMap.t -> string list list -> hyp_info StringMap.t -> Pp.t list