fact: Definition mutex_eq (x y : mutex T) := match x, y with undef, undef => true | nown, nown => true | mx x', mx y' => x' == y' | _, _ => false end.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(ssrnat eqtype seq) pcm(options prelude pred) pcm(pcm morphism natmap)