diff options
| author | herbelin | 2003-10-09 07:52:08 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-09 07:52:08 +0000 |
| commit | 767920af6289d2b7916cc57d4de18316026d7fa9 (patch) | |
| tree | 8bd1fc85673f0ccec71588677c82492f387f6e11 | |
| parent | 11780fabd8f6692036e2641da0dbc275e516c549 (diff) | |
Syntaxe VernacEndProof changee pour ajout mot-cle 'Admitted'
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4553 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/coqide.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index f466bafaff..ae04c8d642 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -537,7 +537,7 @@ let push_phrase start_of_phrase_mark end_of_phrase_mark ast = in push x; match snd ast with - | VernacEndProof (_, None) -> update_on_end_of_proof () + | VernacEndProof (Proved (_, None)) -> update_on_end_of_proof () | VernacEndSegment id -> update_on_end_of_segment id | _ -> () @@ -545,7 +545,7 @@ let repush_phrase x = let x = { x with reset_info = Coq.compute_reset_info (snd x.ast) } in push x; match snd x.ast with - | VernacEndProof (_, None) -> update_on_end_of_proof () + | VernacEndProof (Proved (_, None)) -> update_on_end_of_proof () | VernacEndSegment id -> update_on_end_of_segment id | _ -> () |