singleton.err

MiniAgda by Andreas Abel and Karl Mehltretter
--- opening "singleton.ma" ---
--- scope checking ---
--- type checking ---
error during typechecking:
K
/// checkExpr 0 |- \ A -> \ x -> \ y -> y : .[A : Set] -> (x : A) -> (y : A) -> < x : A >
/// checkForced fromList [] |- \ A -> \ x -> \ y -> y : .[A : Set] -> (x : A) -> (y : A) -> < x : A >
/// new A : Set
/// checkExpr 1 |- \ x -> \ y -> y : (x : A) -> (y : A) -> < x : A >
/// checkForced fromList [(A,0)] |- \ x -> \ y -> y : (x : A) -> (y : A) -> < x : A >
/// new x : v0
/// checkExpr 2 |- \ y -> y : (y : A) -> < x : A >
/// checkForced fromList [(x,1),(A,0)] |- \ y -> y : (y : A) -> < x : A >
/// new y : v0
/// checkExpr 3 |- y : < x : A >
/// leqVal' (subtyping)  < y : A >  <=+  < x : A >
/// leqVal'  y : A  <=*  x : A
/// leqApp: head mismatch y != x