blob: a1326596bbfeb5b716cf33c3b7ffe21ce68f17c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Monomorphic P =
fun e : option L => match e with
| Some cl => Some cl
| None => None
end
: option L -> option L
P is not universe polymorphic
fun n : nat => let y : T n := A n in ?t ?x : T n
: forall n : nat, T n
where
?t : [n : nat y := A n : T n |- ?T -> T n]
?x : [n : nat y := A n : T n |- ?T]
fun n : nat => ?t ?x : T n
: forall n : nat, T n
where
?t : [n : nat |- ?T -> T n]
?x : [n : nat |- ?T]
|
