diff options
| author | Pierre-Marie Pédrot | 2016-12-05 16:32:26 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-05-19 15:17:31 +0200 |
| commit | 152b259b7b587ea949dd856b24beaf56466f3f27 (patch) | |
| tree | b4fa92941b1e4a851723dfe133a79dc9d3ef8035 /Message.v | |
| parent | 07ad1ca45473ba02db9b687bb7e89d440ba79b20 (diff) | |
Fixing a precedence issue in type parameters.
Diffstat (limited to 'Message.v')
| -rw-r--r-- | Message.v | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/Message.v b/Message.v new file mode 100644 index 0000000000..36233f4544 --- /dev/null +++ b/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 Coq.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". |