Skip to content

show that pair construction commutes with taking the core

Ralf Jung requested to merge ralf/pair-core into master

I do not remember why Core is a typeclass. I could find exactly one other instance, and that's for STSs:

$ rg "Instance.*\bCore\b"
182:Instance core' `{PCore A} : Core A := λ x, default x (pcore x).

199:Instance sts_core : Core (car sts) := λ x,

Might be worth just defining core x := default x (pcore x)?

Edited by Ralf Jung

Merge request reports