Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 197 lines (154 sloc) 8.341 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2012 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)

(* Module defining the last essential tiles of interactive proofs.
The features of the Proof module are undoing and focusing.
A proof is a mutable object, it contains a proofview, and some information
to be able to undo actions, and to unfocus the current view. All three
of these being meant to evolve.
- Proofview: a proof is primarily the data of the current view.
That which is shown to the user (as a remainder, a proofview
is mainly the logical state of the proof, together with the
currently focused goals).
- Focus: a proof has a focus stack: the top of the stack contains
the context in which to unfocus the current view to a view focused
with the rest of the stack.
In addition, this contains, for each of the focus context, a
"focus kind" and a "focus condition" (in practice, and for modularity,
the focus kind is actually stored inside the condition). To unfocus, one
needs to know the focus kind, and the condition (for instance "no condition" or
the proof under focused must be complete) must be met.
- Undo: since proofviews and focus stacks are immutable objects,
it could suffice to hold the previous states, to allow to return to the past.
However, we also allow other modules to do actions that can be undone.
Therefore the undo stack stores action to be ran to undo.
*)

open Term

(* Type of a proof. *)
type proof

(* Returns a stylised view of a proof for use by, for instance,
ide-s. *)
(* spiwack: the type of [proof] will change as we push more refined
functions to ide-s. This would be better than spawning a new nearly
identical function everytime. Hence the generic name. *)
(* In this version: returns the focused goals, a representation of the
focus stack (the number of goals at each level) and the underlying
evar_map *)
val proof : proof -> Goal.goal list * (Goal.goal list * Goal.goal list) list * Evd.evar_map

(*** General proof functions ***)

val start : (Environ.env * Term.types) list -> proof

(* Returns [true] if the considered proof is completed, that is if no goal remain
to be considered (this does not require that all evars have been solved). *)
val is_done : proof -> bool

(* Returns the list of partial proofs to initial goals. *)
val partial_proof : proof -> Term.constr list

(* Returns the proofs (with their type) of the initial goals.
Raises [UnfinishedProof] is some goals remain to be considered.
Raises [HasUnresolvedEvar] if some evars have been left undefined. *)
exception UnfinishedProof
exception HasUnresolvedEvar
val return : proof -> (Term.constr * Term.types) list

(* Interpretes the Undo command. Raises [EmptyUndoStack] if
the undo stack is empty. *)
exception EmptyUndoStack
val undo : proof -> unit

(* Adds an undo effect to the undo stack. Use it with care, errors here might result
in inconsistent states.
An undo effect is meant to undo an effect on a proof (a canonical example
of which is {!Proofglobal.set_proof_mode} which changes the current parser for
tactics). Make sure it will work even if the effects have been only partially
applied at the time of failure. *)
val add_undo : (unit -> unit) -> proof -> unit

(*** Focusing actions ***)

(* ['a focus_kind] is the type used by focusing and unfocusing
commands to synchronise. Focusing and unfocusing commands use
a particular ['a focus_kind], and if they don't match, the unfocusing command
will fail.
When focusing with an ['a focus_kind], an information of type ['a] is
stored at the focusing point. An example use is the "induction" tactic
of the declarative mode where sub-tactics must be aware of the current
induction argument. *)
type 'a focus_kind
val new_focus_kind : unit -> 'a focus_kind

(* To be authorized to unfocus one must meet the condition prescribed by
the action which focused.
Conditions always carry a focus kind, and inherit their type parameter
from it.*)
type 'a focus_condition
(* [no_cond] only checks that the unfocusing command uses the right
[focus_kind].
If [loose_end] (default [false]) is [true], then if the [focus_kind]
doesn't match, then unfocusing can occur, provided it unfocuses
an earlier focus.
For instance bullets can be unfocused in the following situation
[{- solve_goal. }] because they use a loose-end condition. *)
val no_cond : ?loose_end:bool -> 'a focus_kind -> 'a focus_condition
(* [done_cond] checks that the unfocusing command uses the right [focus_kind]
and that the focused proofview is complete.
If [loose_end] (default [false]) is [true], then if the [focus_kind]
doesn't match, then unfocusing can occur, provided it unfocuses
an earlier focus.
For instance bullets can be unfocused in the following situation
[{ - solve_goal. }] because they use a loose-end condition. *)
val done_cond : ?loose_end:bool -> 'a focus_kind -> 'a focus_condition

(* focus command (focuses on the [i]th subgoal) *)
(* spiwack: there could also, easily be a focus-on-a-range tactic, is there
a need for it? *)
val focus : 'a focus_condition -> 'a -> int -> proof -> unit

exception FullyUnfocused
exception CannotUnfocusThisWay
(* Unfocusing command.
Raises [FullyUnfocused] if the proof is not focused.
Raises [CannotUnfocusThisWay] if the proof the unfocusing condition
is not met. *)
val unfocus : 'a focus_kind -> proof -> unit

(* [unfocused p] returns [true] when [p] is fully unfocused. *)
val unfocused : proof -> bool

(* [get_at_focus k] gets the information stored at the closest focus point
of kind [k].
Raises [NoSuchFocus] if there is no focus point of kind [k]. *)
exception NoSuchFocus
val get_at_focus : 'a focus_kind -> proof -> 'a

(* [is_last_focus k] check if the most recent focus is of kind [k] *)
val is_last_focus : 'a focus_kind -> proof -> bool

(* returns [true] if there is no goal under focus. *)
val no_focused_goal : proof -> bool

(* Sets the section variables assumed by the proof *)
val set_used_variables : Sign.section_context -> proof -> unit
val get_used_variables : proof -> Sign.section_context option

(*** Endline tactic ***)

(* Sets the tactic to be used when a tactic line is closed with [...] *)
val set_endline_tactic : unit Proofview.tactic -> proof -> unit

val with_end_tac : proof -> unit Proofview.tactic -> unit Proofview.tactic

(*** Tactics ***)

val run_tactic : Environ.env -> unit Proofview.tactic -> proof -> unit


(*** Transactions ***)

(* A transaction chains several commands into a single one. For instance,
a focusing command and a tactic. Transactions are such that if
any of the atomic action fails, the whole transaction fails.

During a transaction, the visible undo stack is constituted only
of the actions performed done during the transaction.

[transaction p f] can be called on an [f] using, itself, [transaction p].*)
val transaction : proof -> (unit -> unit) -> unit


(*** Commands ***)

val in_proof : proof -> (Evd.evar_map -> 'a) -> 'a

(*** Compatibility layer with <=v8.2 ***)
module V82 : sig
  val subgoals : proof -> Goal.goal list Evd.sigma

  (* All the subgoals of the proof, including those which are not focused. *)
  val background_subgoals : proof -> Goal.goal list Evd.sigma

  val get_initial_conclusions : proof -> Term.types list

  val depth : proof -> int

  val top_goal : proof -> Goal.goal Evd.sigma
  
  (* returns the existential variable used to start the proof *)
  val top_evars : proof -> Evd.evar list

  (* Turns the unresolved evars into goals.
Raises [UnfinishedProof] if there are still unsolved goals. *)
  val grab_evars : proof -> unit

  (* Implements the Existential command *)
  val instantiate_evar : int -> Constrexpr.constr_expr -> proof -> unit
end
Something went wrong with that request. Please try again.