let rec apply alpha x = match alpha with
  | [] -> None
  | (y,y')::s ->
      if Fol.Var.equal x y then Some y' else apply s x