Skip to content

Commit 8edd778

Browse files
committed
Fix more tests.
1 parent 015f0ff commit 8edd778

2 files changed

Lines changed: 3 additions & 3 deletions

File tree

share/pulse/examples/by-example/PulseTutorial.Array.fst

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff 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$

share/pulse/examples/by-example/PulseTutorial.LinkedList.fst

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff 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);

0 commit comments

Comments
 (0)