diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-10 12:13:12 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-03-10 12:13:12 +0000 |
commit | 02779dbc71c0f6985427c47ec05dd25b44dd859c (patch) | |
tree | cdff116e8c7e5d82ae6943428018f39d1ce81d60 /powerpc/Op.v | |
parent | e29b0c71f446ea6267711c7cc19294fd93fb81ad (diff) | |
download | compcert-02779dbc71c0f6985427c47ec05dd25b44dd859c.tar.gz compcert-02779dbc71c0f6985427c47ec05dd25b44dd859c.zip |
Glasnost: making transparent a number of definitions that were opaque
for no good reason.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2140 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/Op.v')
-rw-r--r-- | powerpc/Op.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/powerpc/Op.v b/powerpc/Op.v index a8936fe8..110796ba 100644 --- a/powerpc/Op.v +++ b/powerpc/Op.v @@ -120,14 +120,16 @@ Proof. assert (forall (x y: comparison), {x=y}+{x<>y}). decide equality. assert (forall (x y: condition), {x=y}+{x<>y}). decide equality. decide equality. -Qed. +Defined. Definition eq_addressing (x y: addressing) : {x=y} + {x<>y}. Proof. generalize Int.eq_dec; intro. assert (forall (x y: ident), {x=y}+{x<>y}). exact peq. decide equality. -Qed. +Defined. + +Global Opaque eq_addressing eq_operation. (** * Evaluation functions *) |