diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-27 19:23:04 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-27 19:23:04 +0200 |
commit | 146bf43966f0d0c7a1587fc4d8dab58958d621fa (patch) | |
tree | b95de34ff87fcbd679056a744e915c3a31e4e25c /mppa_k1c/Op.v | |
parent | 28e66eb4b60c485bebb1e217bc8f50bdc2cc6ddb (diff) | |
download | compcert-kvx-146bf43966f0d0c7a1587fc4d8dab58958d621fa.tar.gz compcert-kvx-146bf43966f0d0c7a1587fc4d8dab58958d621fa.zip |
factor expressions into single file
Diffstat (limited to 'mppa_k1c/Op.v')
-rw-r--r-- | mppa_k1c/Op.v | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/mppa_k1c/Op.v b/mppa_k1c/Op.v index d3e4270e..2836f7cf 100644 --- a/mppa_k1c/Op.v +++ b/mppa_k1c/Op.v @@ -975,22 +975,22 @@ Proof with (try exact I; try reflexivity; auto using Val.Vptr_has_type). destruct (Val.cmp_different_blocks _); simpl; trivial. (* extfz *) - unfold extfz. - destruct (_ && _ && _). + destruct (is_bitfield _ _). + destruct v0; simpl; trivial. + constructor. (* extfs *) - unfold extfs. - destruct (_ && _ && _). + destruct (is_bitfield _ _). + destruct v0; simpl; trivial. + constructor. (* extfzl *) - unfold extfzl. - destruct (_ && _ && _). + destruct (is_bitfieldl _ _). + destruct v0; simpl; trivial. + constructor. (* extfsl *) - unfold extfsl. - destruct (_ && _ && _). + destruct (is_bitfieldl _ _). + destruct v0; simpl; trivial. + constructor. Qed. @@ -1605,25 +1605,25 @@ Proof. (* extfz *) - unfold extfz. - destruct (_ && _ && _). + destruct (is_bitfield _ _). + inv H4; trivial. + trivial. (* extfs *) - unfold extfs. - destruct (_ && _ && _). + destruct (is_bitfield _ _). + inv H4; trivial. + trivial. (* extfzl *) - unfold extfzl. - destruct (_ && _ && _). + destruct (is_bitfieldl _ _). + inv H4; trivial. + trivial. (* extfsl *) - unfold extfsl. - destruct (_ && _ && _). + destruct (is_bitfieldl _ _). + inv H4; trivial. + trivial. Qed. |