We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent cad56f8 commit c658be4Copy full SHA for c658be4
List.lp
@@ -1369,15 +1369,10 @@ assert ⊢ perm_eq eqn (59 ⸬ 58 ⸬ 4 ⸬ 2 ⸬ □) (58 ⸬ 4 ⸬ 2 ⸬ 69
1369
symbol filter [a] : (τ a → 𝔹) → 𝕃 a → 𝕃 a;
1370
1371
rule filter _ □ ↪ □
1372
-with filter $p ($x ⸬ $l) ↪ if ($p $x) ($x ⸬ (filter $p $l)) (filter $p $l);
+with filter $p ($x ⸬ $l) ↪ if ($p $x) ($x ⸬ filter $p $l) (filter $p $l);
1373
1374
assert ⊢ filter (λ x, eqn (x + 1) 3) (42 ⸬ 2 ⸬ 51 ⸬ 3 ⸬ 2 ⸬ 68 ⸬ □) ≡ 2 ⸬ 2 ⸬ □;
1375
1376
-symbol rmfilter [a] : (τ a → 𝔹) → 𝕃 a → 𝕃 a;
1377
-
1378
-rule rmfilter _ □ ↪ □
1379
-with rmfilter $p ($x ⸬ $l) ↪ if ($p $x) (filter $p $l) ($x ⸬ (filter $p $l));
1380
1381
opaque symbol size_filter [a] (p:τ a → 𝔹) l :
1382
π (size (filter p l) = count p l) ≔
1383
begin
0 commit comments