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