fact: Fixpoint refineConstructor_eq {dom : list Type} : constructorType oldRep dom -> constructorType oldRep dom -> Prop := match dom return constructorType oldRep dom -> constructorType oldRep dom -> Prop with | nil => fun oldConstructor newConstructor => refine oldConstructor newConstructor | cons D dom' => fun oldConstructor newConstructor => forall d : D, @refineConstructor_eq dom' (oldConstructor d) (newConstructor d) end.
imports: Fiat.Common Fiat.Computation Fiat.ADT Coq.Sets.Ensembles