summaryrefslogtreecommitdiff
path: root/backend/CSE.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/CSE.v')
-rw-r--r--backend/CSE.v6
1 files changed, 2 insertions, 4 deletions
diff --git a/backend/CSE.v b/backend/CSE.v
index 1888fb8..45a804e 100644
--- a/backend/CSE.v
+++ b/backend/CSE.v
@@ -60,9 +60,7 @@ Inductive rhs : Type :=
Definition eq_valnum: forall (x y: valnum), {x=y}+{x<>y} := peq.
Definition eq_list_valnum (x y: list valnum) : {x=y}+{x<>y}.
-Proof.
- decide equality. apply eq_valnum.
-Qed.
+Proof. decide equality. apply eq_valnum. Defined.
Definition eq_rhs (x y: rhs) : {x=y}+{x<>y}.
Proof.
@@ -74,7 +72,7 @@ Proof.
generalize eq_valnum; intro.
generalize eq_list_valnum; intro.
decide equality.
-Qed.
+Defined.
(** A value numbering is a collection of equations between value numbers
plus a partial map from registers to value numbers. Additionally,