abstract Compex = {
  cat Prop ; Ind ;
  fun Even : Ind -> Prop ;
}