diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2016-11-04 15:55:52 +0100 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2016-11-04 16:00:52 +0100 |
commit | 22dfbff296cf03b6fab2bcec4eb5f9cf6ee8368c (patch) | |
tree | 096a4ff4fec84349501f2f94f4011432337a8a5e /proofs/tacmach.mli | |
parent | 6bb352a6743c7332b9715ac15e95c806a58d101c (diff) |
Fix #3441 Use pf_get_type_of to avoid blowup
... in pose proof of large proof terms
Diffstat (limited to 'proofs/tacmach.mli')
-rw-r--r-- | proofs/tacmach.mli | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/tacmach.mli b/proofs/tacmach.mli index 727efcf6d..f79fa1d4b 100644 --- a/proofs/tacmach.mli +++ b/proofs/tacmach.mli @@ -109,6 +109,7 @@ module New : sig val pf_concl : ([ `NF ], 'r) Proofview.Goal.t -> types val pf_unsafe_type_of : ('a, 'r) Proofview.Goal.t -> Term.constr -> Term.types + val pf_get_type_of : ('a, 'r) Proofview.Goal.t -> Term.constr -> Term.types val pf_type_of : ('a, 'r) Proofview.Goal.t -> Term.constr -> evar_map * Term.types val pf_conv_x : ('a, 'r) Proofview.Goal.t -> Term.constr -> Term.constr -> bool |