diff options
Diffstat (limited to 'toplevel/lemmas.ml')
| -rw-r--r-- | toplevel/lemmas.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/lemmas.ml b/toplevel/lemmas.ml index e1f17b571..3779815e9 100644 --- a/toplevel/lemmas.ml +++ b/toplevel/lemmas.ml @@ -41,7 +41,7 @@ let retrieve_first_recthm = function (pi2 (Global.lookup_named id),variable_opacity id) | ConstRef cst -> let cb = Global.lookup_constant cst in - (Option.map Lazyconstr.force (body_of_constant cb), is_opaque cb) + (body_of_constant cb, is_opaque cb) | _ -> assert false let adjust_guardness_conditions const = function |