diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-21 19:12:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-21 19:12:46 +0000 |
| commit | b069aa8d6db23269f0c4f250f271411c2a26fcda (patch) | |
| tree | e71f2ac57b7b7121acd3861fbdec35d828f9f717 /toplevel | |
| parent | 37a159edcbc1e2088c23592639ba6b12576bce61 (diff) | |
Typo dans message d'erreur (obligations).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16336 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index a48e32bb2..6b8780cda 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -470,7 +470,7 @@ let close sec = errorlabstrm "Program" (str "Unsolved obligations when closing " ++ str sec ++ str":" ++ spc () ++ prlist_with_sep spc (fun x -> Nameops.pr_id x) keys ++ - (str (if Int.equal (List.length keys) 1 then " has " else "have ") ++ + (str (if Int.equal (List.length keys) 1 then " has " else " have ") ++ str "unsolved obligations")) let input : program_info ProgMap.t -> obj = |