diff options
| author | Pierre-Marie Pédrot | 2017-07-24 17:41:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-07-24 18:28:54 +0200 |
| commit | c25e86e6b4e8bb694d3c8e50f04a92cc33ad807d (patch) | |
| tree | 8de3b10678ad5361764fb6484539cad75e4d4464 /theories/Message.v | |
| parent | 0bfa6d3cda461f4d09ec0bfa9781042199b1f43b (diff) | |
Turning the ltac2 subfolder into a standalone plugin.
Diffstat (limited to 'theories/Message.v')
| -rw-r--r-- | theories/Message.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/theories/Message.v b/theories/Message.v new file mode 100644 index 0000000000..b2159612cb --- /dev/null +++ b/theories/Message.v @@ -0,0 +1,20 @@ +(************************************************************************) +(* 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. + +Ltac2 @ external print : message -> unit := "ltac2" "print". + +Ltac2 @ external of_string : string -> message := "ltac2" "message_of_string". + +Ltac2 @ external of_int : int -> message := "ltac2" "message_of_int". + +Ltac2 @ external of_constr : constr -> message := "ltac2" "message_of_constr". +(** Panics if there is more than one goal under focus. *) + +Ltac2 @ external concat : message -> message -> message := "ltac2" "message_concat". |