diff options
Diffstat (limited to 'plugins/micromega')
| -rw-r--r-- | plugins/micromega/coq_micromega.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/micromega/coq_micromega.ml b/plugins/micromega/coq_micromega.ml index 10cf213608..93588111b5 100644 --- a/plugins/micromega/coq_micromega.ml +++ b/plugins/micromega/coq_micromega.ml @@ -1120,7 +1120,7 @@ struct with e when Errors.noncritical e -> (X(t),env,tg) in let is_prop term = - let ty = Typing.type_of (Goal.env gl) (Goal.sigma gl) term in + let ty = Typing.unsafe_type_of (Goal.env gl) (Goal.sigma gl) term in let sort = Typing.sort_of (Goal.env gl) (ref (Goal.sigma gl)) ty in Term.is_prop_sort sort in |