summaryrefslogtreecommitdiff
path: root/fstar
diff options
context:
space:
mode:
authorSon Ho2022-05-15 22:34:31 +0200
committerSon Ho2022-05-15 22:34:31 +0200
commitffc93a3f4d3b29e3a6805f9882f20dd22d184939 (patch)
tree79013f1f1cb001409a1fffe526c2a27bd0ebc28b /fstar
parenta25d820b6eb02f573ad2c274a35e3496a9dacd40 (diff)
Add a pass to cleanup the deconstructed ADTs and fix a small issue
Diffstat (limited to 'fstar')
-rw-r--r--fstar/Primitives.fst2
1 files changed, 1 insertions, 1 deletions
diff --git a/fstar/Primitives.fst b/fstar/Primitives.fst
index f73c8c09..fe351f3a 100644
--- a/fstar/Primitives.fst
+++ b/fstar/Primitives.fst
@@ -146,7 +146,7 @@ let scalar_mul (#ty : scalar_ty) (x : scalar ty) (y : scalar ty) : result (scala
mk_scalar ty (x * y)
(** Cast an integer from a [src_ty] to a [tgt_ty] *)
-let scalar_cast (#src_ty : scalar_ty) (tgt_ty : scalar_ty) (x : scalar src_ty) : result (scalar tgt_ty) =
+let scalar_cast (src_ty : scalar_ty) (tgt_ty : scalar_ty) (x : scalar src_ty) : result (scalar tgt_ty) =
mk_scalar tgt_ty x
/// The scalar types