diff options
| author | Kazuhiko Sakaguchi | 2019-07-25 20:09:28 +0200 |
|---|---|---|
| committer | Kazuhiko Sakaguchi | 2019-07-31 19:40:52 +0200 |
| commit | bb64d76f9fe80ecdef4f09c797914022783ccb80 (patch) | |
| tree | 968756ad91e0a8b6a69284716709ffa2c04cfbc8 /plugins/micromega | |
| parent | 4e679df3c15e5e554ff9ef85138f9c55396e9f0b (diff) | |
Fix #7348: extraction of dependent record projections
- Inline record projections by default (except for Haskell extraction).
- Extend `pp_record_proj` for record projections involving `MLmagic`.
- Remove special treatments for pretty-printing for record projections other
than `pp_record_proj`.
- `micromega.ml` had to be changed due to this change of the extraction plugin.
Acknowledgement: This work is financially supported by Peano System Inc.
on-behalf-of: @peano-system <info@peano-system.jp>
Diffstat (limited to 'plugins/micromega')
| -rw-r--r-- | plugins/micromega/micromega.ml | 8 | ||||
| -rw-r--r-- | plugins/micromega/micromega.mli | 4 |
2 files changed, 0 insertions, 12 deletions
diff --git a/plugins/micromega/micromega.ml b/plugins/micromega/micromega.ml index a64a5a84b3..11bd2c0946 100644 --- a/plugins/micromega/micromega.ml +++ b/plugins/micromega/micromega.ml @@ -1568,14 +1568,6 @@ module PositiveSet = type q = { qnum : z; qden : positive } -(** val qnum : q -> z **) - -let qnum x = x.qnum - -(** val qden : q -> positive **) - -let qden x = x.qden - (** val qeq_bool : q -> q -> bool **) let qeq_bool x y = diff --git a/plugins/micromega/micromega.mli b/plugins/micromega/micromega.mli index 64cb3a8355..6da0c754f4 100644 --- a/plugins/micromega/micromega.mli +++ b/plugins/micromega/micromega.mli @@ -446,10 +446,6 @@ module PositiveSet : type q = { qnum : z; qden : positive } -val qnum : q -> z - -val qden : q -> positive - val qeq_bool : q -> q -> bool val qle_bool : q -> q -> bool |