diff options
| author | Son Ho | 2022-11-14 14:05:26 +0100 |
|---|---|---|
| committer | Son HO | 2022-11-14 14:21:04 +0100 |
| commit | e5bd97f4ad08b277057a23094f2cc76abbeeaddb (patch) | |
| tree | e729f7616e6aced7f78fb1b6f5beaec3f1d2b22f /backends/fstar | |
| parent | 5a96e28b8706ed945ccbb569881ca1888cd73ace (diff) | |
Add a `-use-fuel` option
Diffstat (limited to 'backends/fstar')
| -rw-r--r-- | backends/fstar/Primitives.fst | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/backends/fstar/Primitives.fst b/backends/fstar/Primitives.fst index 82622656..9a06b596 100644 --- a/backends/fstar/Primitives.fst +++ b/backends/fstar/Primitives.fst @@ -45,6 +45,9 @@ let eval_global (#a : Type0) (x : result a{Return? (normalize_term x)}) : a = Re type char = FStar.Char.char type string = string +let is_zero (n: nat) : bool = n = 0 +let decrease (n: nat{n > 0}) : nat = n - 1 + let mem_replace_fwd (a : Type0) (x : a) (y : a) : a = x let mem_replace_back (a : Type0) (x : a) (y : a) : a = y |