diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-14 13:33:12 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-14 13:33:12 +0000 |
| commit | e193bc26b8dcd2c24b68054f6d4ab8e5986d357c (patch) | |
| tree | 169a876fa38b3c61b03692f084316866b09719ca /toplevel/obligations.ml | |
| parent | 585d45c78a8b86e0aba21151828a78e9c7259f0d (diff) | |
Fix merge and add missing file.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15040 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/obligations.ml')
| -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 ae25b4fde..529228d01 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -804,7 +804,7 @@ let rec solve_obligation prg num tac = | l -> pperror (str "Obligation " ++ int user_num ++ str " depends on obligation(s) " ++ str (string_of_list ", " (fun x -> string_of_int (succ x)) l)) -and subtac_obligation (user_num, name, typ) tac = +and obligation (user_num, name, typ) tac = let num = pred user_num in let prg = get_prog_err name in let obls, rem = prg.prg_obligations in |