Skip to content

Commit c658be4

Browse files
authored
remove rmfilter (Deducteam#36)
The current definition of rmfilter is wrong (thanks @bodeveix) and kind of useless anyway (rmfilter p = filter (\x,not(p x))).
1 parent cad56f8 commit c658be4

File tree

1 file changed

+1
-6
lines changed

1 file changed

+1
-6
lines changed

List.lp

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1369,15 +1369,10 @@ assert ⊢ perm_eq eqn (59 ⸬ 58 ⸬ 4 ⸬ 2 ⸬ □) (58 ⸬ 4 ⸬ 2 ⸬ 69
13691369
symbol filter [a] : (τ a → 𝔹) → 𝕃 a → 𝕃 a;
13701370

13711371
rule filter _ □ ↪ □
1372-
with filter $p ($x ⸬ $l) ↪ if ($p $x) ($x(filter $p $l)) (filter $p $l);
1372+
with filter $p ($x ⸬ $l) ↪ if ($p $x) ($xfilter $p $l) (filter $p $l);
13731373

13741374
assertfilterx, eqn (x + 1) 3) (422513268 ⸬ □) ≡ 22 ⸬ □;
13751375

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-
13811376
opaque symbol size_filter [a] (pa → 𝔹) l :
13821377
π (size (filter p l) = count p l) ≔
13831378
begin

0 commit comments

Comments
 (0)