TcPat.tcConPat uses equalities instead of GADT refinement