blob: 418a0e0f391dba5e6da5ac552c05f0b716ca4aa9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
Require Import Crypto.Compilers.Syntax.
Require Import Crypto.Compilers.InlineConstAndOpByRewrite.
Require Import Crypto.Compilers.ZExtended.Syntax.
Module Export Rewrite.
Definition inline_const_and_opf {var} {t} (e : exprf _ _ t) : @exprf base_type op var t
:= @inline_const_and_opf base_type op interp_base_type (@interp_op) var (@Const) t e.
Definition inline_const_and_op {var} {t} (e : expr _ _ t) : @expr base_type op var t
:= @inline_const_and_op base_type op interp_base_type (@interp_op) var (@Const) t e.
Definition InlineConstAndOp {t} (e : Expr t) : Expr t
:= @InlineConstAndOp base_type op interp_base_type (@interp_op) (@Const) t e.
End Rewrite.
|
