diff options
| author | Pierre-Marie Pédrot | 2019-05-16 22:32:48 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-24 09:00:10 +0200 |
| commit | 26169d33b45aae8bf2dfafa2b400a9780c73ea13 (patch) | |
| tree | d5d6e1b70c52cc2d833f7d6576e743f272e7ee90 /kernel/opaqueproof.ml | |
| parent | f6aeed0b7de9581200749f9ded48360540ce8471 (diff) | |
Remove a last use of opacity-piercing function in Safe_typing.
Diffstat (limited to 'kernel/opaqueproof.ml')
| -rw-r--r-- | kernel/opaqueproof.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/kernel/opaqueproof.ml b/kernel/opaqueproof.ml index 18c1bcc0f8..d168f3cb7e 100644 --- a/kernel/opaqueproof.ml +++ b/kernel/opaqueproof.ml @@ -115,6 +115,10 @@ let force_constraints { opaque_val = prfs; opaque_dir = odp; _ } = function | None -> Univ.ContextSet.empty | Some u -> Future.force u +let get_direct_constraints = function +| Indirect _ -> CErrors.anomaly (Pp.str "Not a direct opaque.") +| Direct (_, cu) -> Future.chain cu snd + let get_constraints { opaque_val = prfs; opaque_dir = odp; _ } = function | Direct (_,cu) -> Some(Future.chain cu snd) | Indirect (_,dp,i) -> |