@@ -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