source: extracted/typeComparison.mli @ 2601

Last change on this file since 2601 was 2601, checked in by sacerdot, 7 years ago

Extraction to ocaml is now working, with a couple of bugs left.
One limitation is that it is not possible to have two files with the
same name in different directories. Therefore this commit renames files
to avoid this situation.

The extracted directory contains:

  1. a snapshot of the .ml(i) files extracted from CerCo? by running ocamlc.opt -extract_ocaml compiler.ma The files have been patched by hand to implement all strings and fix the bugs.
  2. a file PROBLEMS that describes the remaining problems, i.e. bugs and axioms to be implemented

To obtain the compiler, run ocamlbuild compiler.byte.
At the moment it fails because of the three remaining axioms.

File size: 1.1 KB
Line 
1open Preamble
2
3open CostLabel
4
5open Proper
6
7open PositiveMap
8
9open Deqsets
10
11open PreIdentifiers
12
13open Errors
14
15open Extralib
16
17open Setoids
18
19open Monad
20
21open Option
22
23open Lists
24
25open Positive
26
27open Identifiers
28
29open Coqlib
30
31open Floats
32
33open Arithmetic
34
35open Char
36
37open String
38
39open Vector
40
41open Div_and_mod
42
43open Jmeq
44
45open Russell
46
47open List
48
49open Util
50
51open FoldStuff
52
53open BitVector
54
55open Extranat
56
57open Bool
58
59open Relations
60
61open Nat
62
63open Integers
64
65open Hints_declaration
66
67open Core_notation
68
69open Pts
70
71open Logic
72
73open Types
74
75open AST
76
77open Csyntax
78
79val typeMismatch : String.string
80
81val sz_eq_dec : AST.intsize -> AST.intsize -> (__, __) Types.sum
82
83val sg_eq_dec : AST.signedness -> AST.signedness -> (__, __) Types.sum
84
85val fieldlist_eq_dec :
86  Csyntax.fieldlist -> Csyntax.fieldlist -> (__, __) Types.sum
87
88val typelist_eq_dec :
89  Csyntax.typelist -> Csyntax.typelist -> (__, __) Types.sum
90
91val type_eq_dec : Csyntax.type0 -> Csyntax.type0 -> (__, __) Types.sum
92
93val assert_type_eq : Csyntax.type0 -> Csyntax.type0 -> __ Errors.res
94
95val type_eq : Csyntax.type0 -> Csyntax.type0 -> Bool.bool
96
97val if_type_eq : Csyntax.type0 -> Csyntax.type0 -> 'a1 -> 'a1 -> 'a1
98
Note: See TracBrowser for help on using the repository browser.