diff options
| author | Pierre-Marie Pédrot | 2017-09-29 17:57:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-10-07 23:16:30 +0200 |
| commit | 0b26bfc8e068e1e95eeea9db0c3bda7436ac8338 (patch) | |
| tree | e8326792017135063ac901b4240d685c3cc102ea /theories | |
| parent | 533b5ee5a3c5dd4c2e54d85dba9485722bb21db1 (diff) | |
Implementing the Constr.in_context function.
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Constr.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/Constr.v b/theories/Constr.v index 3e67a486cf..072c613920 100644 --- a/theories/Constr.v +++ b/theories/Constr.v @@ -58,3 +58,8 @@ Ltac2 @ external closenl : ident list -> int -> constr -> constr := "ltac2" "con [Rel(k); ...; Rel(k+n-1)] in [c]. If two names are identical, the one of least index is kept. *) End Unsafe. + +Ltac2 @ external in_context : ident -> constr -> (unit -> unit) -> constr := "ltac2" "constr_in_context". +(** On a focussed goal [Γ ⊢ A], [in_context id c tac] evaluates [tac] in a + focussed goal [Γ, id : c ⊢ ?X] and returns [fun (id : c) => t] where [t] is + the proof built by the tactic. *) |