diff options
Diffstat (limited to 'backend/CastOptim.v')
-rw-r--r-- | backend/CastOptim.v | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/backend/CastOptim.v b/backend/CastOptim.v index 545564d8..19d0065f 100644 --- a/backend/CastOptim.v +++ b/backend/CastOptim.v @@ -136,12 +136,12 @@ Module Approx <: SEMILATTICE_WITH_TOP. | Single, Single => Single | _, _ => Unknown end. - Lemma lub_commut: forall x y, eq (lub x y) (lub y x). + Lemma ge_lub_left: forall x y, ge (lub x y) x. Proof. - unfold lub, eq; intros. - destruct x; destruct y; auto. + unfold lub, ge; intros. + destruct x; destruct y; auto. Qed. - Lemma ge_lub_left: forall x y, ge (lub x y) x. + Lemma ge_lub_right: forall x y, ge (lub x y) y. Proof. unfold lub, ge; intros. destruct x; destruct y; auto. |