Coq ssreflect driver (wip)

parent 82e96330
......@@ -2,7 +2,7 @@
prelude "(* This file is generated by Why3's coq-ssreflect driver *)"
prelude "(* Beware! Only edit allowed sections below *)"
printer "coq"
printer "coq-ssr"
filename "%t.v"
valid 0
......@@ -20,11 +20,25 @@ transformation "simplify_formula"
theory BuiltIn
prelude "Require Import ssrwhy3."
prelude "
Require Import ssreflect ssrbool ssrfun ssrnat seq eqtype ssrint.
Require Import ssrint ssrwhy3.
Set Implicit Arguments.
Unset Strict Implicit.
Unset Printing Implicit Defensive.
"
syntax type int "int"
syntax type real "R"
syntax predicate (=) "(%1 = %2)"
end
theory HighOrd
syntax type func "(%1 -> %2)"
syntax type pred "(%1 -> bool)"
syntax function (@) "(%1 %2)"
end
theory Bool
......@@ -54,10 +68,12 @@ end
theory int.Int
prelude "Require Import ssralg ssrnum.
prelude "
Require Import ssralg ssrnum.
Import GRing.Theory Num.Theory.
Local Open Scope ring_scope.
"
Local Open Scope ring_scope."
syntax function zero "0%Z"
syntax function one "1%Z"
......@@ -92,3 +108,15 @@ Local Open Scope ring_scope.
remove prop ZeroLessOne
end
theory array.Array
syntax type array "(array %1)"
syntax function get "(get %1 %2)"
syntax function length "(size %1 : int)"
syntax function elts "(get %1)"
syntax function set "(set %1 %2 %3)"
syntax function make "(make %1 %2)"
end
This diff is collapsed.
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment