proposition: Lemma refineConstructor_eq_trans rep rep' Dom AbsR : forall c c' c'', @refineConstructor rep rep' AbsR Dom c c' -> @refineConstructor_eq rep' Dom c' c'' -> refineConstructor AbsR c c''.
proof: Proof. induction Dom. - intro; simpl; intros; subst; intros v Comp_v. apply H0 in Comp_v; computes_to_inv; subst. apply H in Comp_v; computes_to_inv; subst; eauto. - simpl; intros; eapply IHDom; simpl in *. apply H. eapply H0. Qed.
imports: Fiat.Common Fiat.Computation Coq.Sets.Ensembles Fiat.ADT.ADTSig Fiat.ADT.Core Fiat.ADTRefinement.Core