diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-26 22:44:13 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-26 22:44:13 +0200 |
| commit | 87615fd17854019e12a5acdebab11adc62eec5c1 (patch) | |
| tree | f8ba1044750888f6e958f3cd72b703e6976cebe6 | |
| parent | beb1cf4f6b56ee739e3a763de93663a875224402 (diff) | |
| download | compcert-kvx-87615fd17854019e12a5acdebab11adc62eec5c1.tar.gz compcert-kvx-87615fd17854019e12a5acdebab11adc62eec5c1.zip | |
some little helper
| -rw-r--r-- | mppa_k1c/DecBoolOps.v | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/mppa_k1c/DecBoolOps.v b/mppa_k1c/DecBoolOps.v new file mode 100644 index 00000000..7f6f7c87 --- /dev/null +++ b/mppa_k1c/DecBoolOps.v @@ -0,0 +1,15 @@ +Set Implicit Arguments. + +Theorem and_dec : forall A B C D : Prop, + { A } + { B } -> { C } + { D } -> + { A /\ C } + { (B /\ C) \/ (B /\ D) \/ (A /\ D) }. +Proof. + intros A B C D AB CD. + destruct AB; destruct CD. + - left. tauto. + - right. tauto. + - right. tauto. + - right. tauto. +Qed. + +
\ No newline at end of file |