diff options
| author |  Stephane Glondu <steph@glondu.net> | 2009-02-19 13:13:20 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2009-02-19 13:13:20 +0100 |
| commit | 2155252cd74c3a2d0dc0bde716ef70b1f86b8085 (patch) | |
| tree | 20313deb80e22ea9088f1e6ba0bb9336f3718b25 /contrib/subtac/subtac_obligations.ml | |
| parent | 06746919eadeeb430bfb464d83847f982ea78540 (diff) | |
| parent | a0a94c1340a63cdb824507b973393882666ba52a (diff) | |
Merge commit 'upstream/8.2-1+dfsg'
Diffstat (limited to 'contrib/subtac/subtac_obligations.ml')
| -rw-r--r-- | contrib/subtac/subtac_obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/subtac/subtac_obligations.ml b/contrib/subtac/subtac_obligations.ml index cc1e2dde..d2e831ef 100644 --- a/contrib/subtac/subtac_obligations.ml +++ b/contrib/subtac/subtac_obligations.ml @@ -282,7 +282,7 @@ let declare_obligation obl body = print_message (Subtac_utils.definition_message obl.obl_name); { obl with obl_body = Some (mkConst constant) } -let red = Reductionops.nf_betaiota +let red = Reductionops.nf_betaiota Evd.empty let init_prog_info n b t deps fixkind notations obls impls kind hook = let obls' = |