diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-06-12 16:22:20 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-12 16:43:33 +0200 |
commit | 83d8b081c02cfde83c8fd93102f8f1aae3fe87b3 (patch) | |
tree | 53e67d72f9c7ce29e05c8c69d0e75c30c40a3cea /plugins/micromega | |
parent | 9097e9a84cf3841cd5fac81a7fe309ae2dec246f (diff) | |
parent | fd8c2ff85c098149f11280af5f1a257dd6af3622 (diff) |
Merge PR#709: Bytecode compilation apart from 'make world', again
Diffstat (limited to 'plugins/micromega')
-rw-r--r-- | plugins/micromega/sos_types.mli | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/plugins/micromega/sos_types.mli b/plugins/micromega/sos_types.mli new file mode 100644 index 000000000..57c4e50ca --- /dev/null +++ b/plugins/micromega/sos_types.mli @@ -0,0 +1,40 @@ +(************************************************************************) +(* 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 *) +(************************************************************************) + +(* The type of positivstellensatz -- used to communicate with sos *) + +type vname = string;; + +type term = +| Zero +| Const of Num.num +| Var of vname +| Inv of term +| Opp of term +| Add of (term * term) +| Sub of (term * term) +| Mul of (term * term) +| Div of (term * term) +| Pow of (term * int);; + +val output_term : out_channel -> term -> unit + +type positivstellensatz = + Axiom_eq of int + | Axiom_le of int + | Axiom_lt of int + | Rational_eq of Num.num + | Rational_le of Num.num + | Rational_lt of Num.num + | Square of term + | Monoid of int list + | Eqmul of term * positivstellensatz + | Sum of positivstellensatz * positivstellensatz + | Product of positivstellensatz * positivstellensatz;; + +val output_psatz : out_channel -> positivstellensatz -> unit |