diff options
| author | gareuselesinge | 2013-08-11 07:41:21 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-08-11 07:41:21 +0000 |
| commit | 1a2242d6bdeaf53f0856b26e64b4fdbe2ce8fd0a (patch) | |
| tree | 0238d45e88ce5a2bf30a223ca8a17081efc6379b | |
| parent | 6fd24934414d75f59502bf1e8730b496c9a00efb (diff) | |
Mutual proofs cannot be delegated
I don't know why yet, but let's be conservative
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16697 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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) |