2014-10-26 01:34:41 +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-12-01 04:34:12 +00:00
|
|
|
import logic.eq
|
2014-10-26 01:34:41 +00:00
|
|
|
|
|
|
|
|
namespace unit
|
|
|
|
|
protected theorem equal (a b : unit) : a = b :=
|
|
|
|
|
rec_on a (rec_on b rfl)
|
|
|
|
|
|
|
|
|
|
theorem eq_star (a : unit) : a = star :=
|
|
|
|
|
equal a star
|
|
|
|
|
end unit
|
