val return (a: Type u#aa) (x: a) : repr a 0
val return (a: Type u#aa) (x: a) : repr a 0
let return (a:Type u#aa) (x:a) : repr a 0 =
  raise_val 0
module Degenerate

open FStar.Universe

(* otherwise it's eqtype and strict checking fails *)
let int : Type u#0 = int

(* An effect which does not use its type *)

let repr (a:Type u#aa) (i:int) : Type u#aa =
  raise_t (x:int{x==i})
/
prims.fst.checked FStar.Universe.fsti.checked FStar.Pervasives.fsti.checked
Degenerate.fst
a: Type -> x: a -> Degenerate.repr a 0
FStar.Universe.raise_val Degenerate.int Prims.eq2 Degenerate.repr
let return (a: Type u#aa) (x: a) : repr a 0 =
  
raise_val 0