Initial objects #4

Merged
Taneb merged 3 commits from initial-objects into main 2024-06-20 11:49:46 +01:00
1 changed files with 6 additions and 0 deletions
Showing only changes of commit 19141b121b - Show all commits

View File

@ -45,3 +45,9 @@ end ∘ end = end
include α include β = include (α β) include α include β = include (α β)
include α exclude β = exclude (α β) include α exclude β = exclude (α β)
exclude α β = exclude (α β) exclude α β = exclude (α β)
-- There is always a Thinning from the empty list to any list. Here we exclude
-- at every step.
¡ : Thinning A [] xs
¡ {xs = []} = end
¡ {xs = x xs} = exclude ¡