From 84c0f274e3baa424299c7b098ad7ced9ea4bab0e Mon Sep 17 00:00:00 2001 From: filliatr Date: Mon, 6 Dec 1999 15:07:11 +0000 Subject: declarations eliminations / debuggae inductifs (debut) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@212 85f007b7-540e-0410-9357-904b9bb8a0f7 --- toplevel/command.ml | 7 +++++-- toplevel/coqtop.ml | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) (limited to 'toplevel') 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 -- cgit v1.2.3