From 1f2ec6429da2b09b58480c35e175428e39c1c37b Mon Sep 17 00:00:00 2001 From: filliatr Date: Fri, 10 Dec 1999 14:51:04 +0000 Subject: - erreurs Pretype - Write / Restore State git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@230 85f007b7-540e-0410-9357-904b9bb8a0f7 --- proofs/pfedit.ml | 10 ---------- proofs/pfedit.mli | 2 -- 2 files changed, 12 deletions(-) (limited to 'proofs') diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index 6ff3deb709..ab2a0c5135 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -228,16 +228,6 @@ let abort_refine f x = f x (* used to be: error "Must save or abort current goal first" *) -let reset_name = abort_refine reset_name -(*** TODO -and reset_keeping_name = abort_refine reset_keeping -and reset_section = abort_refine raw_reset_section -and save_state = abort_refine States.raw_save_state -and restore_state = abort_refine States.raw_restore_state -and restore_last_saved_state = abort_refine States.raw_restore_last_saved_state -***) -and reset_initial = abort_refine Lib.reset_initial - (*********************************************************************) (* Modifying the current prooftree *) diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index ab9dc3e431..13f7b6c1c1 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -51,8 +51,6 @@ val proof_term : unit -> constr val start_proof : string -> strength -> Coqast.t -> unit val start_proof_constr : string -> strength -> constr -> unit -val reset_name : identifier -> unit -val reset_initial : unit -> unit val save_named : bool -> unit val save_anonymous : bool -> string -> 'a -> unit -- cgit v1.2.3