diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-06 15:07:11 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-12-06 15:07:11 +0000 |
commit | 84c0f274e3baa424299c7b098ad7ced9ea4bab0e (patch) | |
tree | 77c010e4391739eca90d6c22b73c67df28326e6a /toplevel | |
parent | 7d94e54e8dfa1d3d72d6c31f01dff49b701bcf99 (diff) |
declarations eliminations / debuggae inductifs (debut)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@212 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
-rw-r--r-- | toplevel/command.ml | 7 | ||||
-rw-r--r-- | toplevel/coqtop.ml | 2 |
2 files changed, 6 insertions, 3 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 7ce0d13e8..217acdb0a 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -153,8 +153,11 @@ let build_mutual lparams lnamearconstrs finite = mind_entry_inds = mispecvec } in States.unfreeze fs; - declare_mind mie; - pPNL(minductive_message lrecnames) + let sp = declare_mind mie in + pPNL(minductive_message lrecnames); + for i = 0 to List.length mispecvec - 1 do + declare_eliminations sp i + done with e -> States.unfreeze fs; raise e diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index ecbd1a91c..e35e9f6ba 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -20,7 +20,7 @@ let set_batch_mode () = batch_mode := true let remove_top_ml () = Mltop.remove () -let inputstate = ref "tactics.coq" +let inputstate = ref "barestate.coq" let set_inputstate s = inputstate:= s let inputstate () =if !inputstate <> "" then intern_state !inputstate |