blob: 30d6f8d82cd9f48e20207153b5c78c3e839ed6d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(**************************************************************************)
(* *)
(* SMTCoq *)
(* Copyright (C) 2011 - 2019 *)
(* *)
(* See file "AUTHORS" for the list of authors *)
(* *)
(* This file is distributed under the terms of the CeCILL-C licence *)
(* *)
(**************************************************************************)
Require Int63Native.
Require Import ExtractNative.
Require Import SMTCoq.
Extract Constant Int63Native.eqb => "fun i j -> ExtrNative.compare i j = ExtrNative.Eq".
Set Extraction AccessOpaque.
Extraction "extraction/sat_checker.ml" Sat_Checker.checker.
Extraction "extraction/smt_checker.ml" Euf_Checker.checker_ext.
|