diff options
| author | Son Ho | 2022-11-15 16:32:35 +0100 |
|---|---|---|
| committer | Son HO | 2022-11-16 15:45:32 +0100 |
| commit | 8bf0452f91c44ff390556db77bf42697c0443b67 (patch) | |
| tree | 4c4d8b318b39acf03b9dd59e953af87e242d6960 /compiler/Driver.ml | |
| parent | fa6dcd3ebbdc7a508157ff2a12f91e70d2012a86 (diff) | |
Generate record field projectors for Coq
Diffstat (limited to 'compiler/Driver.ml')
| -rw-r--r-- | compiler/Driver.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/compiler/Driver.ml b/compiler/Driver.ml index 15ad5a26..42fd0122 100644 --- a/compiler/Driver.ml +++ b/compiler/Driver.ml @@ -112,13 +112,6 @@ let () = (* F* supports monadic notations, but the encoding loses information *) unfold_monadic_let_bindings := true | Coq -> - (* In the case of Coq, we forbid using field projectors (see the comments for - [dont_use_field_projectors]). - Also, we always decompose ADT values with matches (decomposing with - let-bindings is not supported). - *) - dont_use_field_projectors := true; - always_deconstruct_adts_with_matches := true; (* Some patterns are not supported *) decompose_monadic_let_bindings := true; decompose_nested_let_patterns := true |