From 9043add656177eeac1491a73d2f3ab92bec0013c Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@debian.org>
Date: Sat, 29 Dec 2018 14:31:27 -0500
Subject: Imported Upstream version 8.8.2

---
 plugins/decl_mode/decl_mode.ml | 136 -----------------------------------------
 1 file changed, 136 deletions(-)
 delete mode 100644 plugins/decl_mode/decl_mode.ml

(limited to 'plugins/decl_mode/decl_mode.ml')

diff --git a/plugins/decl_mode/decl_mode.ml b/plugins/decl_mode/decl_mode.ml
deleted file mode 100644
index 92d40890..00000000
--- a/plugins/decl_mode/decl_mode.ml
+++ /dev/null
@@ -1,136 +0,0 @@
-(************************************************************************)
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
-(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
-(*   \VV/  **************************************************************)
-(*    //   *      This file is distributed under the terms of the       *)
-(*         *       GNU Lesser General Public License Version 2.1        *)
-(************************************************************************)
-
-open Names
-open Term
-open Evd
-open CErrors
-open Util
-
-let daimon_flag = ref false
-
-let set_daimon_flag () = daimon_flag:=true
-let clear_daimon_flag () = daimon_flag:=false
-let get_daimon_flag () = !daimon_flag
-
-
-
-
-type split_tree=
-    Skip_patt of Id.Set.t * split_tree
-  | Split_patt of Id.Set.t * inductive *
-		(bool array * (Id.Set.t * split_tree) option) array
-  | Close_patt of split_tree
-  | End_patt of (Id.t * (int * int))
-
-type elim_kind =
-    EK_dep of split_tree
-  | EK_nodep
-  | EK_unknown
-
-type recpath = int option*Declarations.wf_paths
-
-type per_info =
-    {per_casee:constr;
-     per_ctype:types;
-     per_ind:inductive;
-     per_pred:constr;
-     per_args:constr list;
-     per_params:constr list;
-     per_nparams:int;
-     per_wf:recpath}
-
-type stack_info =
-    Per of Decl_expr.elim_type * per_info * elim_kind * Id.t list
-  | Suppose_case
-  | Claim
-  | Focus_claim
-
-type pm_info =
-    { pm_stack : stack_info list}
-let info = Store.field ()
-
-
-(* Current proof mode *)
-
-type command_mode =
-    Mode_tactic
-  | Mode_proof
-  | Mode_none
-
-let mode_of_pftreestate pts =
-  (* spiwack: it used to be "top_goal_..." but this should be fine *)
-  let { it = goals ; sigma = sigma } = Proof.V82.subgoals pts in
-  let goal = List.hd goals in
-  match Store.get (Goal.V82.extra sigma goal) info with
-  | None -> Mode_tactic 
-  | Some _ -> Mode_proof
-	  
-let get_current_mode () =
-  try 
-    mode_of_pftreestate (Pfedit.get_pftreestate ())
-  with Proof_global.NoCurrentProof -> Mode_none
-
-let check_not_proof_mode str =
- match get_current_mode () with
- | Mode_proof -> error str
- | _ -> ()
-
-let get_info sigma gl=
-  match Store.get (Goal.V82.extra sigma gl) info with
-  | None ->  invalid_arg "get_info"
-  | Some pm -> pm
-
-let try_get_info sigma gl =
-  Store.get (Goal.V82.extra sigma gl) info
-
-let get_goal_stack pts =
-  let { it = goals ; sigma = sigma } = Proof.V82.subgoals pts in
-  let info = get_info sigma (List.hd goals) in
-  info.pm_stack
-
-
-let proof_focus = Proof.new_focus_kind ()
-let proof_cond = Proof.done_cond proof_focus
-
-let focus p =
-  let inf = get_goal_stack p in
-  Proof_global.simple_with_current_proof (fun _ -> Proof.focus proof_cond inf 1)
-
-let unfocus () =
-  Proof_global.simple_with_current_proof (fun _ p -> Proof.unfocus proof_focus p ())
-
-let get_top_stack pts =
-  try
-    Proof.get_at_focus proof_focus pts
-  with Proof.NoSuchFocus ->
-    let { it = gl ; sigma = sigma } = Proof.V82.top_goal pts in
-    let info = get_info sigma gl in
-    info.pm_stack
-
-let get_stack pts = Proof.get_at_focus proof_focus pts
-
-let get_last env = match Environ.named_context env with
-  | decl :: _ -> Context.Named.Declaration.get_id decl
-  | [] -> error "no previous statement to use"
-
-
-let get_end_command pts =
-  match get_top_stack pts with
-  | [] -> "\"end proof\""
-  | Claim::_ -> "\"end claim\""
-  | Focus_claim::_-> "\"end focus\""
-  | Suppose_case :: Per (et,_,_,_) :: _ | Per (et,_,_,_) :: _  ->
-      begin
-	match et with
-	  Decl_expr.ET_Case_analysis ->
-	    "\"end cases\" or start a new case"
-	| Decl_expr.ET_Induction ->
-	    "\"end induction\" or start a new case"
-      end
-  | _ -> anomaly (Pp.str"lonely suppose")
-- 
cgit v1.2.3