aya-prover / aya-dev

A proof assistant and a dependently-typed language
https://www.aya-prover.org
MIT License
278 stars 16 forks source link

ISE #1101

Closed ice1000 closed 3 months ago

ice1000 commented 3 months ago
def ++-assoc {xs ys zs : FMSet A} : xs ++ (ys ++ zs) = (xs ++ ys) ++ zs elim xs
| [] => refl
| x :] xs' => pmap (x :]) ++-assoc
| comm x y xs' i => pmap (comm x y) {??}
ice1000 commented 3 months ago

Wrong:

def ++-assoc {xs ys zs : FMSet A} : xs ++ (ys ++ zs) = (xs ++ ys) ++ zs elim xs
| [] => refl
| x :] xs' => pmap (x :]) ++-assoc
| comm x y xs' i => {??}