diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2019-05-03 14:32:36 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2019-05-03 14:32:36 +0200 |
| commit | 452da0d77523d15830d7a78198092d72822063a6 (patch) | |
| tree | 273bf5fc7e715d80a75f5c83d06cfd32e9266d74 /mppa_k1c/DecBoolOps.v | |
| parent | 24e97bd87918f2c487416744ba12a78aba35a9e5 (diff) | |
| parent | 9976dba5412be7e834abb63ac2293f1da288a185 (diff) | |
| download | compcert-kvx-452da0d77523d15830d7a78198092d72822063a6.tar.gz compcert-kvx-452da0d77523d15830d7a78198092d72822063a6.zip | |
Merge branch 'mppa-work' into mppa_k1c
Diffstat (limited to 'mppa_k1c/DecBoolOps.v')
| -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 |