diff options
| author | Pierre-Marie Pédrot | 2017-08-02 18:51:19 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-02 19:51:59 +0200 |
| commit | 3007909ca1f65132bd0850d2be57e781e55707bd (patch) | |
| tree | 5d350a26e6997768f2d77eda05cdad32968a0d9b /src/tac2core.ml | |
| parent | 6e150eb19a55b16bbd4ea03964ee48f2d69084ed (diff) | |
Tentatively implementing apply.
Diffstat (limited to 'src/tac2core.ml')
| -rw-r--r-- | src/tac2core.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/tac2core.ml b/src/tac2core.ml index b45275210e..329c115be3 100644 --- a/src/tac2core.ml +++ b/src/tac2core.ml @@ -883,6 +883,14 @@ let () = add_scope "bindings" begin function | _ -> scope_fail () end +let () = add_scope "intropattern" begin function +| [] -> + let scope = Extend.Aentry Tac2entries.Pltac.q_intropattern in + let act tac = tac in + Tac2entries.ScopeRule (scope, act) +| _ -> scope_fail () +end + let () = add_scope "intropatterns" begin function | [] -> let scope = Extend.Aentry Tac2entries.Pltac.q_intropatterns in |