2014-07-19 19:09:47 +00:00
|
|
|
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
|
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
|
|
|
-- Author: Leonardo de Moura
|
2014-08-30 03:45:57 +00:00
|
|
|
|
|
|
|
-- logic.axioms.prop_decidable
|
|
|
|
-- ===========================
|
2014-08-01 01:40:09 +00:00
|
|
|
|
|
|
|
import logic.axioms.classical logic.axioms.hilbert logic.classes.decidable
|
2014-08-20 02:32:44 +00:00
|
|
|
using decidable inhabited nonempty
|
2014-07-19 19:09:47 +00:00
|
|
|
|
|
|
|
-- Excluded middle + Hilbert implies every proposition is decidable
|
|
|
|
|
2014-07-21 01:42:11 +00:00
|
|
|
-- First, we show that (decidable a) is inhabited for any 'a' using the excluded middle
|
2014-08-20 22:49:44 +00:00
|
|
|
theorem decidable_inhabited [instance] (a : Prop) : inhabited (decidable a) :=
|
2014-08-15 03:12:54 +00:00
|
|
|
nonempty_imp_inhabited
|
|
|
|
(or_elim (em a)
|
|
|
|
(assume Ha, nonempty_intro (inl Ha))
|
|
|
|
(assume Hna, nonempty_intro (inr Hna)))
|
2014-07-19 19:09:47 +00:00
|
|
|
|
2014-08-20 22:49:44 +00:00
|
|
|
-- Note that decidable_inhabited is marked as an instance, and it is silently used
|
2014-07-21 01:42:11 +00:00
|
|
|
-- for synthesizing the implicit argument in the following 'epsilon'
|
2014-07-29 02:58:57 +00:00
|
|
|
theorem prop_decidable [instance] (a : Prop) : decidable a :=
|
2014-08-15 03:12:54 +00:00
|
|
|
epsilon (λd, true)
|