diff options
| author | filliatr | 2000-03-18 00:11:25 +0000 |
|---|---|---|
| committer | filliatr | 2000-03-18 00:11:25 +0000 |
| commit | dafb5f443611cf0bfb4626f47d20d65149bd3fe0 (patch) | |
| tree | db6c2c7edf63ca299bb22cd72fc96de700e2e19f | |
| parent | 8bff8bbd620e54022c2fea81542bf1cbc18fafb0 (diff) | |
bug discharge (work_alist contenanti plein de fois les memes choses)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@323 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | .depend.coq | 5 | ||||
| -rwxr-xr-x | dev/ocamldebug-v7 | 2 | ||||
| -rw-r--r-- | toplevel/discharge.ml | 6 |
3 files changed, 8 insertions, 5 deletions
diff --git a/.depend.coq b/.depend.coq index e94ce6bef1..ca469fd439 100644 --- a/.depend.coq +++ b/.depend.coq @@ -16,6 +16,11 @@ theories/Init/LogicSyntax.vo: theories/Init/LogicSyntax.v theories/Init/Logic.vo theories/Init/Logic.vo: theories/Init/Logic.v theories/Init/Datatypes.vo theories/Init/DatatypesSyntax.vo: theories/Init/DatatypesSyntax.v theories/Init/Datatypes.vo theories/Init/Datatypes.vo: theories/Init/Datatypes.v +theories/Bool/Zerob.vo: theories/Bool/Zerob.v theories/Arith/Arith.vo theories/Bool/Bool.vo +theories/Bool/Sumbool.vo: theories/Bool/Sumbool.v +theories/Bool/IfProp.vo: theories/Bool/IfProp.v theories/Bool/Bool.vo +theories/Bool/DecBool.vo: theories/Bool/DecBool.v +theories/Bool/Bool.vo: theories/Bool/Bool.v theories/Arith/Wf_nat.vo: theories/Arith/Wf_nat.v theories/Arith/Lt.vo theories/Arith/Plus.vo: theories/Arith/Plus.v theories/Arith/Le.vo theories/Arith/Lt.vo theories/Arith/Peano_dec.vo: theories/Arith/Peano_dec.v diff --git a/dev/ocamldebug-v7 b/dev/ocamldebug-v7 index 5e9b2aa025..38572b7207 100755 --- a/dev/ocamldebug-v7 +++ b/dev/ocamldebug-v7 @@ -3,7 +3,7 @@ # wrap around ocamldebug for Coq # export COQTOP=`coqtop -where` -export COQTOP=/home/jc/coq/V7 +export COQTOP=$HOME/coq/V7 export COQLIB=$COQTOP export COQTH=$COQLIB/theories export CAMLP4LIB=`camlp4 -where` diff --git a/toplevel/discharge.ml b/toplevel/discharge.ml index 09b10538de..859f00a00f 100644 --- a/toplevel/discharge.ml +++ b/toplevel/discharge.ml @@ -173,10 +173,8 @@ let process_constant osecsp nsecsp oldenv (ids_to_discard,modlist) cb = expmod_constant_value cb.const_opaque oldenv modlist cb.const_body in let typ = expmod_type oldenv modlist cb.const_type in let hyps = map_sign_typ (expmod_type oldenv modlist) cb.const_hyps in - let (body',typ',modl) = - abstract_constant ids_to_discard hyps (body,typ) - in - let mods = (Const osecsp, DO_ABSTRACT(Const nsecsp,modl)) :: modlist in + let (body',typ',modl) = abstract_constant ids_to_discard hyps (body,typ) in + let mods = [ (Const osecsp, DO_ABSTRACT(Const nsecsp,modl)) ] in (body', typ'.body, mods) |