Merge PR #11564: Recognize Default Proof Using in STM

Ack-by: gares

1 files changed, 2 insertions, 1 deletions

diff --git a/stm/stm.ml b/stm/stm.ml
index 5402600041..a521f9001d 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -2154,6 +2154,7 @@ let collect_proof keep cur hd brkind id =
  let is_defined = function
    | _, { expr = e } -> is_defined_expr e.CAst.v.expr
                         && (not (Vernacprop.has_Fail e)) in
+ let has_default_proof_using = Option.has_some (Proof_using.get_default_proof_using ()) in
  let proof_using_ast = function
    | VernacProof(_,Some _) -> true
    | _ -> false
@@ -2162,7 +2163,7 @@ let collect_proof keep cur hd brkind id =
    | Some (_, v) when proof_using_ast v.expr.CAst.v.expr
                       && (not (Vernacprop.has_Fail v.expr)) -> Some v
    | _ -> None in
- let has_proof_using x = proof_using_ast x <> None in
+ let has_proof_using x = has_default_proof_using || (proof_using_ast x <> None) in
  let proof_no_using = function
    | VernacProof(t,None) -> t
    | _ -> assert false