Skip to content

Commit 015f0ff

Browse files
committed
Fix library.
1 parent 662a747 commit 015f0ff

1 file changed

Lines changed: 4 additions & 4 deletions

File tree

lib/pulse/lib/Pulse.Lib.LinkedList.fst

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -376,7 +376,7 @@ fn length_iter (#t:Type) (x: llist t)
376376
Pulse.Lib.Reference.(cur := next);
377377
Pulse.Lib.Reference.(ctr := n + 1);
378378
};
379-
with _n ll _sfx. _;
379+
with _ _n ll _sfx. _;
380380
is_list_cases_none ll;
381381
T.elim _ _;
382382
let n = Pulse.Lib.Reference.(!ctr);
@@ -523,7 +523,7 @@ fn append_iter (#t:Type) (x y:llist t)
523523
as (forall* tl. is_list next tl @==> is_list x ((pfx@[reveal hd])@tl));
524524
Pulse.Lib.Reference.(cur := next);
525525
};
526-
with ll pfx sfx. _;
526+
with _ ll pfx sfx. _;
527527
append_at_last_cell Pulse.Lib.Reference.(!cur) y;
528528
(* finally, use the quqnatified postcondition of the invariant *)
529529
FA.elim_forall_imp (is_list ll) (fun sfx' -> is_list x (pfx @ sfx')) (sfx@'l2);
@@ -596,7 +596,7 @@ fn split (#t:Type0) (x:llist t) (n:U32.t) (#xl:erased (list t))
596596
List.Tot.append_length pfx [hd];
597597
non_empty_list next; (* need to prove Some? next *)
598598
};
599-
with i ll pfx sfx. _;
599+
with _ i ll pfx sfx. _;
600600
let last = Pulse.Lib.Reference.(!cur);
601601
let y = detach_next last;
602602
with hd tl. _;
@@ -679,7 +679,7 @@ fn reverse (#t:Type0) (x:llist t)
679679
List.Tot.Properties.rev_rev' _rev_pfx;
680680
List.Tot.Properties.append_assoc (List.Tot.rev _rev_pfx) [n.head] tl;
681681
};
682-
with _p _c _rev_pfx _suffix. _;
682+
with _ _p _c _rev_pfx _suffix. _;
683683
is_list_cases_none _c;
684684
drop_ (is_list _c _suffix);
685685
List.Tot.Properties.append_l_nil (List.Tot.rev _rev_pfx);

0 commit comments

Comments
 (0)