blob: d0400667db18332fc9a9a134c4e62b4a410a8bfa (
plain)
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
|
(************************************************************************)
(* 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 *)
(************************************************************************)
Require Import Ltac2.Init.
Require Ltac2.Control Ltac2.Std.
Ltac2 Notation "intros" p(intropatterns) := Std.intros p.
Ltac2 Notation "eintros" p(intropatterns) := Std.eintros p.
Ltac2 Notation "split" bnd(thunk(bindings)) :=
Control.with_holes bnd (fun bnd => Std.split bnd).
Ltac2 Notation "esplit" bnd(bindings) := Std.esplit bnd.
Ltac2 Notation "left" bnd(thunk(bindings)) :=
Control.with_holes bnd (fun bnd => Std.left bnd).
Ltac2 Notation "eleft" bnd(bindings) := Std.eleft bnd.
Ltac2 Notation "right" bnd(thunk(bindings)) :=
Control.with_holes bnd (fun bnd => Std.right bnd).
Ltac2 Notation "eright" bnd(bindings) := Std.eright bnd.
Ltac2 Notation "constructor" := Std.constructor ().
Ltac2 Notation "constructor" n(tactic) bnd(thunk(bindings)) :=
Control.with_holes bnd (fun bnd => Std.constructor_n n bnd).
Ltac2 Notation "econstructor" := Std.econstructor ().
Ltac2 Notation "econstructor" n(tactic) bnd(bindings) :=
Std.econstructor_n n bnd.
|
