12 lines
184 B
Text
12 lines
184 B
Text
import data.nat
|
|
open nat
|
|
|
|
inductive foo : Prop :=
|
|
mk : ∀ {a : nat}, a > 0 → foo
|
|
|
|
example (b : nat) (h : b > 1) : foo :=
|
|
begin
|
|
constructor,
|
|
exact b,
|
|
exact lt_of_succ_lt h
|
|
end
|