13 lines
357 B
Text
13 lines
357 B
Text
|
-- Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
||
|
|
-- Released under Apache 2.0 license as described in the file LICENSE.
|
||
|
|
-- Author: Leonardo de Moura
|
||
|
|
import data.unit.decl logic.eq
|
||
|
|
|
||
|
|
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
|