diff options
| author | ppedrot | 2012-09-10 14:27:50 +0000 |
|---|---|---|
| committer | ppedrot | 2012-09-10 14:27:50 +0000 |
| commit | dd5b261e20bd9a5b05e2194e83a98d1639764f41 (patch) | |
| tree | fb8c75d6ca2bec9c06d1f2ecee7500271cb33e00 | |
| parent | 45f5aafd5685d9c4bd897f8e0cdb8937b53a9391 (diff) | |
Fixed #2893.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15790 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | toplevel/obligations.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index 54dd7fe5a6..6338fa9e43 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -962,6 +962,7 @@ let add_mutual_definitions l ?tactic ?(kind=Global,Definition) ?(reduce=reduce) let admit_prog prg = let obls, rem = prg.prg_obligations in + let obls = Array.copy obls in Array.iteri (fun i x -> match x.obl_body with |