diff options
| author | Pierre-Marie Pédrot | 2019-01-23 16:20:45 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-01-23 16:20:45 +0100 |
| commit | 0b5dd8afd26b33b358824b3ebb88e3d6bfc41492 (patch) | |
| tree | 18ba28a241c9f75bed5376ebcef7b506fd188f0c /stm | |
| parent | 299e445c03c49f3260fca97e135d1fcfb4170751 (diff) | |
| parent | 2986683c5e6379d07574d0cb2ba2a609085aa8e3 (diff) | |
Merge PR #9270: Turn `Refine instance Mode` off by default
Ack-by: SkySkimmer
Ack-by: maximedenes
Reviewed-by: ppedrot
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 2 | ||||
| -rw-r--r-- | stm/vernac_classifier.ml | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 169d608d2d..1641adbb70 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -3006,7 +3006,7 @@ let process_transaction ~doc ?(newtip=Stateid.fresh ()) let bname = VCS.mk_branch_name x in let opacity_of_produced_term = function (* This AST is ambiguous, hence we check it dynamically *) - | VernacInstance (false, _,_ , None, _) -> GuaranteesOpacity + | VernacInstance (_,_ , None, _) -> GuaranteesOpacity | _ -> Doesn'tGuaranteeOpacity in VCS.commit id (Fork (x,bname,opacity_of_produced_term (Vernacprop.under_control x.expr),[])); let proof_mode = default_proof_mode () in diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 454a4b66e7..09f531ce13 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -160,11 +160,12 @@ let classify_vernac e = | VernacMemOption _ | VernacPrintOption _ | VernacGlobalCheck _ | VernacDeclareReduction _ - | VernacDeclareClass _ | VernacDeclareInstances _ + | VernacExistingClass _ | VernacExistingInstance _ | VernacRegister _ | VernacNameSectionHypSet _ | VernacDeclareCustomEntry _ - | VernacComments _ -> VtSideff [], VtLater + | VernacComments _ + | VernacDeclareInstance _ -> VtSideff [], VtLater (* Who knows *) | VernacLoad _ -> VtSideff [], VtNow (* (Local) Notations have to disappear *) |