diff options
| author | Pierre-Marie Pédrot | 2019-05-26 02:34:14 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-27 14:15:50 +0200 |
| commit | 5eda6e5c0f4875c0222eeba5d1210b7ec59f5496 (patch) | |
| tree | 2fd1238202e32925eeae8f27848fb42eeaf46442 /kernel/term_typing.ml | |
| parent | bd21ec85ff71e49b12d48e4ed3bf72a3f48a60d2 (diff) | |
Ensure dynamically that non-opaque definitions are always side-effect free.
It is guaranteed by Declare, but a little dynamic check does not hurt.
Diffstat (limited to 'kernel/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index af2c511db9..eea04bbf9a 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -174,6 +174,7 @@ the polymorphic case let body, ctx = match trust with | Pure -> body, ctx | SideEffects handle -> + let () = assert opaque in let body, ctx', _ = handle env body side_eff in body, Univ.ContextSet.union ctx ctx' in |