File tree Expand file tree Collapse file tree
share/pulse/examples/by-example Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -197,7 +197,7 @@ fn copy2
197197 };
198198 //copy2rewriting$
199199 // after the loop
200- with v1 s1 . _ ; //bind existentially bound witnesses from the invariant
200+ with _ v1 s1 . _ ; //bind existentially bound witnesses from the invariant
201201 Seq. lemma_eq_elim s1 's2 ; //call an F* lemma to prove that s1 == 's2
202202 ()
203203 //copy2rewritingend$
Original file line number Diff line number Diff line change @@ -277,7 +277,7 @@ ensures pure (n == List.Tot.length 'l)
277277 cur := next ;
278278 ctr := n + 1 ;
279279 };
280- with _n ll _sfx . _ ;
280+ with _ _n ll _sfx . _ ;
281281 is_list_case_none ll ; //this tells us that suffix=[]; so n == List.Tot.length 'l
282282 I. elim _ _ ; //regain ownership of x, giving up ll
283283 let n = !ctr ;
@@ -445,7 +445,7 @@ ensures is_list x ('l1 @ 'l2)
445445 cur := next ;
446446 non_empty_list next ; //need to prove that Some? next, for the invariant
447447 };
448- with ll pfx sfx . _ ;
448+ with _ ll pfx sfx . _ ;
449449 let last = !cur ;
450450 append_at_last_cell last y ;
451451 FA. elim_forall_imp ( is_list last ) ( fun sfx' -> is_list x ( pfx @ sfx' )) ( sfx @'l2 );
You can’t perform that action at this time.
0 commit comments