diff options
| author | Pierre-Marie Pédrot | 2018-04-12 13:06:13 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-04-12 13:06:13 +0200 |
| commit | 3bc69bf3d5a88a9ed948d14f9b069f9efd4cdce9 (patch) | |
| tree | 6e44118d804b4d58eb0bb9243edc3e67cdf08210 /proofs | |
| parent | 52c583660d3d7aa5eddf209632a46276ff9e4236 (diff) | |
| parent | 0ca486fad19fc3da5160148ee4bce72b1e39ded3 (diff) | |
Merge PR #7087: Congruence tactic engine update
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/goal.ml | 14 | ||||
| -rw-r--r-- | proofs/goal.mli | 3 |
2 files changed, 0 insertions, 17 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index ba7e458f3a..6912db3640 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -117,20 +117,6 @@ module V82 = struct with a good implementation of them. *) - (* Used for congruence closure *) - let new_goal_with sigma gl extra_hyps = - let evi = Evd.find sigma gl in - let hyps = evi.Evd.evar_hyps in - let new_hyps = - List.fold_right Environ.push_named_context_val extra_hyps hyps in - let filter = evi.Evd.evar_filter in - let new_filter = Evd.Filter.extend (List.length extra_hyps) filter in - let new_evi = - { evi with Evd.evar_hyps = new_hyps; Evd.evar_filter = new_filter } in - let new_evi = Typeclasses.mark_unresolvable new_evi in - let (sigma, evk) = Evarutil.new_pure_evar_full Evd.empty new_evi in - { Evd.it = evk ; sigma = sigma; } - (* Used by the compatibility layer and typeclasses *) let nf_evar sigma gl = let evi = Evd.find sigma gl in diff --git a/proofs/goal.mli b/proofs/goal.mli index dc9863156c..b8c979ad7a 100644 --- a/proofs/goal.mli +++ b/proofs/goal.mli @@ -64,9 +64,6 @@ module V82 : sig (* Principal part of tclNOTSAMEGOAL *) val same_goal : Evd.evar_map -> goal -> Evd.evar_map -> goal -> bool - (* Used for congruence closure *) - val new_goal_with : Evd.evar_map -> goal -> Context.Named.t -> goal Evd.sigma - (* Used by the compatibility layer and typeclasses *) val nf_evar : Evd.evar_map -> goal -> goal * Evd.evar_map |