2014-10-25 18:34:41 -07: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-11-30 20:34:12 -08:00
|
|
|
import logic.eq
|
2014-10-25 18:34:41 -07: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
|
