diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/subtac/subtac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/subtac/subtac.ml b/contrib/subtac/subtac.ml index 22b0ac68c..4617ca977 100644 --- a/contrib/subtac/subtac.ml +++ b/contrib/subtac/subtac.ml @@ -115,7 +115,7 @@ let subtac (loc, command) = VernacDefinition (defkind, (locid, id), expr, hook) -> (match expr with ProveBody (bl, c) -> ignore(Subtac_pretyping.subtac_proof env isevars id bl c None) - | DefineBody (cbl, bl, c, tycon) -> + | DefineBody (bl, _, c, tycon) -> ignore(Subtac_pretyping.subtac_proof env isevars id bl c tycon)) | VernacFixpoint (l, b) -> let _ = trace (str "Building fixpoint") in |