diff options
| author | Pierre-Marie Pédrot | 2014-03-11 18:28:50 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2014-03-19 13:34:23 +0100 |
| commit | 27e4cb0e99497997c9d019607b578685a71b5944 (patch) | |
| tree | 86d82e2c48f62293a33e22b46eb80cbfaabebf04 /tactics | |
| parent | 0ed5686e28f93d5832ce08c6728ff1c4bc5b431c (diff) | |
Adding phantom types to discriminate normalized goals, and adding a way to
observe non-normalized goals.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 | ||||
| -rw-r--r-- | tactics/tacinterp.mli | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 830fbd2d41..9816162460 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -944,7 +944,7 @@ let val_interp_glob ist (tac:glob_tactic_expr) : typed_generic_argument = module GenargTac = Genarg.Monadic(Proofview.Monad) (* Interprets an l-tac expression into a value *) -let rec val_interp ist (tac:glob_tactic_expr) (gl:Proofview.Goal.t) : typed_generic_argument Proofview.tactic = +let rec val_interp ist (tac:glob_tactic_expr) (gl:'a Proofview.Goal.t) : typed_generic_argument Proofview.tactic = let value_interp ist = try Proofview.tclUNIT (val_interp_glob ist tac) with NeedsAGoal -> diff --git a/tactics/tacinterp.mli b/tactics/tacinterp.mli index 49d40db240..090fb1ccab 100644 --- a/tactics/tacinterp.mli +++ b/tactics/tacinterp.mli @@ -66,10 +66,10 @@ val interp_genarg : interp_sign -> Environ.env -> Evd.evar_map -> Term.constr -> glob_generic_argument -> Evd.evar_map * typed_generic_argument (** Interprets any expression *) -val val_interp : interp_sign -> glob_tactic_expr -> Proofview.Goal.t -> value Proofview.tactic +val val_interp : interp_sign -> glob_tactic_expr -> [ `NF ] Proofview.Goal.t -> value Proofview.tactic (** Interprets an expression that evaluates to a constr *) -val interp_ltac_constr : interp_sign -> glob_tactic_expr -> Proofview.Goal.t -> constr Proofview.tactic +val interp_ltac_constr : interp_sign -> glob_tactic_expr -> [ `NF ] Proofview.Goal.t -> constr Proofview.tactic (** Interprets redexp arguments *) val interp_redexp : Environ.env -> Evd.evar_map -> raw_red_expr -> Evd.evar_map * red_expr |