More universe level related issues #1

~I plan to post all level related issues here in the future.~

Commit: d2ef653

universe u

open data EventT : Type (lsuc u)
  | CarrierT (A : Type u)

def GetAgentT (T : EventT) : Type u
  | CarrierT A => A


struct Event (T : EventT) : Type (lsuc (lsuc u))
  | agent : GetAgentT T


universe v

def Quantifier (A : Type u) : Type (lmax u (lsuc v)) => (A -> Type v) -> Type v


def Verb (T : EventT) : Type (lsuc (lsuc u)) => Quantifier (Event T)

def mkVerb {T : EventT} (p : Event T -> Type v) : Verb T
  => \f => Sig (e : Event T) (s : p e) ** (f e)

(Apart from the level error, it’s strange that the level parameter (lsuc (lsuc u)) of the type of Event can be omitted)

(I’m trying to make the program I wrote before level-polymorphic) (Would there be a way to specify the level parameters for functions manully?)

[re-xyr]

Alternatively: f {universe u v} x y.

[re-xyr]

Because I feel the code look cleaner that way. Still, I do like Lean’s level application syntax: f.(u, v) x y.