diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-10-24 14:32:02 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-10-24 14:32:02 +0000 |
| commit | ec3efbb8b59e7d3b8e5bb9fff622ab2ad0f2146b (patch) | |
| tree | 25fa8a830bb3e87bcb3c62383ed50ad532ed0772 /contrib | |
| parent | ea7d06b9e6b2618b7f973599aea604ab1ef51f80 (diff) | |
Fix define body bug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10261 85f007b7-540e-0410-9357-904b9bb8a0f7
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 56398a9fa..22b0ac68c 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 (cbl, bl, c, tycon) -> ignore(Subtac_pretyping.subtac_proof env isevars id bl c tycon)) | VernacFixpoint (l, b) -> let _ = trace (str "Building fixpoint") in |