Skip to content

Commit bedffbc

Browse files
committed
fix: use prop wherever possible
1 parent 8e8269e commit bedffbc

2 files changed

Lines changed: 2 additions & 2 deletions

File tree

src/Comparse.Parser.Builtins.fsti

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -137,7 +137,7 @@ let prefixes_length (#bytes:Type) {|bytes_like bytes|} (l:list bytes) =
137137
/// }
138138
/// } optional<T>;
139139

140-
val is_not_unit: #bytes:Type0 -> {|bytes_like bytes|} -> #a:Type -> ps_a:parser_serializer_prefix bytes a -> Type0
140+
val is_not_unit: #bytes:Type0 -> {|bytes_like bytes|} -> #a:Type -> ps_a:parser_serializer_prefix bytes a -> prop
141141

142142
/// We define a special type for message formats with non-extensibility and non-emptiness,
143143
/// because they are the most common ones we encounter in the wild.

src/Comparse.Parser.Typeclass.fst

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -30,7 +30,7 @@ val serialize_parse_inv_lemma: #bytes:Type0 -> {|bytes_like bytes|} -> a:Type ->
3030
let serialize_parse_inv_lemma #bytes #bl a #ps buf =
3131
ps.base.serialize_parse_inv buf
3232

33-
val is_well_formed: #bytes:Type0 -> {|bytes_like bytes|} -> a:Type -> {|parseable_serializeable bytes a|} -> bytes_compatible_pre bytes -> a -> Type0
33+
val is_well_formed: #bytes:Type0 -> {|bytes_like bytes|} -> a:Type -> {|parseable_serializeable bytes a|} -> bytes_compatible_pre bytes -> a -> prop
3434
let is_well_formed #bytes #bl a #ps pre x =
3535
is_well_formed_whole ps.base pre x
3636

0 commit comments

Comments
 (0)