∀ {ε : Type u_1} {p : ε → Prop} [inst : DecidablePred p] (ep ep' : Equiv.Perm { a // p a })
  (en en' : Equiv.Perm { a // ¬p a }),
  Equiv.trans (ep.subtypeCongr en) (ep'.subtypeCongr en') =
    Equiv.Perm.subtypeCongr (Equiv.trans ep ep') (Equiv.trans en en')