diff options
| -rw-r--r-- | toplevel/stm.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/toplevel/stm.ml b/toplevel/stm.ml index 215162b856..52a5bd4960 100644 --- a/toplevel/stm.ml +++ b/toplevel/stm.ml @@ -740,6 +740,8 @@ let collect_proof cur hd id = | _, `Alias _ -> collect None (id::accn) view.next | Some (parent, (_,_,VernacExactProof _)), `Fork _ -> `NotOptimizable `Immediate + | _, `Fork(_,_,_::_::_)-> + `NotOptimizable `MutualProofs (* TODO: enderstand where we need that *) | Some (parent, (_,_,VernacProof(_,Some _) as v)), `Fork (_, hd', _) -> assert( hd = hd' ); `Optimizable (parent, Some v, accn) |