diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-06 13:59:14 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-02-06 13:59:14 +0100 |
commit | d25de88dcc7e9bca96ab93bded09dfb9746018fd (patch) | |
tree | c0eb37acfad86326009101f73727644cd2343603 /extraction | |
parent | 7e3261daf2c746d5edb40f37724aa6001704ef2b (diff) | |
download | compcert-d25de88dcc7e9bca96ab93bded09dfb9746018fd.tar.gz compcert-d25de88dcc7e9bca96ab93bded09dfb9746018fd.zip |
Inline fst and snd from Datatypes.
This avoids nameclashes with the Pervasives version of these
functions.
Diffstat (limited to 'extraction')
-rw-r--r-- | extraction/extraction.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/extraction/extraction.v b/extraction/extraction.v index 82b0a023..9c4c724f 100644 --- a/extraction/extraction.v +++ b/extraction/extraction.v @@ -40,6 +40,10 @@ Require Import ExtrOcamlString. (* Coqlib *) Extract Inlined Constant Coqlib.proj_sumbool => "(fun x -> x)". +(* Datatypes *) +Extract Inlined Constant Datatypes.fst => "fst". +Extract Inlined Constant Datatypes.snd => "snd". + (* Decidable *) Extraction Inline DecidableClass.Decidable_witness DecidableClass.decide |