open Fstarcompiler
open Prims
type top = (unit, Obj.t) Fstarcompiler.Prims.dtuple2
type ('a, 'r, 't0, 't1) lift_binrel = (unit, 'r) Fstarcompiler.Prims.dtuple2
let lower_binrel (x : top) (y : top) (p : ('a, 'r, Obj.t, Obj.t) lift_binrel)
  : 'r= FStar_Pervasives.dsnd p

type ('a, 'r, 'wfur, 'uuuuu, 'uuuuu1) lift_binrel_as_well_founded_relation =
  ('a, 'r, 'uuuuu, 'uuuuu1) lift_binrel
type ('a, 'r, 't0, 't1) lift_binrel_squashed = unit
type ('a, 'r, 'x, 'y) squash_binrel = unit

type ('a, 'r, 'wfur, 'uuuuu,
  'uuuuu1) lift_binrel_squashed_as_well_founded_relation = unit

