diff options
author | Jason Gross <jgross@mit.edu> | 2019-01-25 16:36:25 -0500 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2019-01-25 16:36:25 -0500 |
commit | a714d4b1cc90089b80ac475f5b6882f05e98c355 (patch) | |
tree | 09c9cc8f7484f240ea57d2c8347de6dd8bd94b38 /src/arith_rewrite_head.out | |
parent | 73da611aa02996ca531db700dfbf7c36a35cbaef (diff) |
Support Nat.eqb in reification
Diffstat (limited to 'src/arith_rewrite_head.out')
-rw-r--r-- | src/arith_rewrite_head.out | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/arith_rewrite_head.out b/src/arith_rewrite_head.out index 4a3eb8e80..669f6f8c8 100644 --- a/src/arith_rewrite_head.out +++ b/src/arith_rewrite_head.out @@ -7,6 +7,7 @@ match idc in (Compilers.ident t) return (Compile.value' true t) with | Nat_mul => fun x x0 : expr ℕ => Base (#(Nat_mul)%expr @ x @ x0)%expr_pat | Nat_add => fun x x0 : expr ℕ => Base (#(Nat_add)%expr @ x @ x0)%expr_pat | Nat_sub => fun x x0 : expr ℕ => Base (#(Nat_sub)%expr @ x @ x0)%expr_pat +| Nat_eqb => fun x x0 : expr ℕ => Base (#(Nat_eqb)%expr @ x @ x0)%expr_pat | @nil t => Base []%expr_pat | @cons t => fun (x : expr t) (x0 : expr (list t)) => Base (x :: x0)%expr_pat | @pair A B => fun (x : expr A) (x0 : expr B) => Base (x, x0)%expr_pat |