diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-05-15 10:26:32 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-05-15 10:27:14 +0200 |
commit | 099ed72c853e31e9ead230ded55cfb1d09528c77 (patch) | |
tree | e3f80ee07202295ca8a63236d2b2867c78638816 | |
parent | fb8636fbae31aea69986311b755930b0c32e349c (diff) |
Polymorphic Lemmas are like Defined ones for STM
-rw-r--r-- | stm/vernac_classifier.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index fcfd616f4..f51f5d2a0 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -48,7 +48,7 @@ let elide_part_of_script_and_now (a, _) = let make_polymorphic (a, b as x) = match a with - | VtStartProof (x, y, ids, _) -> (VtStartProof (x, y, ids, true), b) + | VtStartProof (x, _, ids, _) -> (VtStartProof (x, Doesn'tGuaranteeOpacity, ids, true), b) | _ -> x let undo_classifier = ref (fun _ -> assert false) |