diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-10-28 22:59:53 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-10-28 22:59:53 -0400 |
| commit | f1d06b14001cee301bcaea8209b8685248356666 (patch) | |
| tree | a8feabc2b14de028df03e76ea579254dd5e85490 /src/Reflection/Syntax.v | |
| parent | ea9f08965f4035b441a3d9e1adf9ec4d54ff3e3f (diff) | |
Add InterpWf
Diffstat (limited to 'src/Reflection/Syntax.v')
| -rw-r--r-- | src/Reflection/Syntax.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Reflection/Syntax.v b/src/Reflection/Syntax.v index fc390acdb..37d585ab1 100644 --- a/src/Reflection/Syntax.v +++ b/src/Reflection/Syntax.v @@ -70,6 +70,8 @@ Section language. | Prod _ _ => fun x y => interp_flat_type_rel_pointwise _ (fst x) (fst y) /\ interp_flat_type_rel_pointwise _ (snd x) (snd y) end. + Definition interp_type_rel_pointwise + := interp_type_gen_rel_pointwise _ interp_flat_type_rel_pointwise. End rel. End flat_type. Section rel_pointwise2. @@ -278,6 +280,7 @@ Global Arguments interp_flat_type_rel_pointwise2 {_ _ _} R {t} _ _. Global Arguments mapf_interp_flat_type {_ _ _} _ {t} _. Global Arguments interp_type_gen {_} _ _. Global Arguments interp_flat_type {_} _ _. +Global Arguments interp_type_rel_pointwise {_} _ _ {_} _ _. Global Arguments interp_type_gen_rel_pointwise {_} _ _ {_} _ _. Global Arguments interp_flat_type_rel_pointwise {_} _ _ {_} _ _. Global Arguments interp_type {_} _ _. |