File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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.
Original file line number Diff line number Diff line change @@ -30,7 +30,7 @@ val serialize_parse_inv_lemma: #bytes:Type0 -> {|bytes_like bytes|} -> a:Type ->
3030let 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
3434let is_well_formed # bytes # bl a # ps pre x =
3535 is_well_formed_whole ps . base pre x
3636
You can’t perform that action at this time.
0 commit comments