This will collect definitions from Std.Logic --------- Co-authored-by: David Thrane Christiansen <david@davidchristiansen.dk> Co-authored-by: Scott Morrison <scott.morrison@gmail.com>
9 lines
290 B
Text
9 lines
290 B
Text
universe u v
|
||
|
||
-- `#check` works
|
||
set_option pp.all true in
|
||
#check fun {α : Sort v} => PEmpty.rec (fun _ => α)
|
||
|
||
-- but `def` doesn't work
|
||
-- error: (kernel) compiler failed to infer low level type, unknown declaration 'PEmpty.rec'
|
||
def PEmpty.elim' {α : Sort v} := PEmpty.rec (fun _ => α)
|