diff --git a/sledge/src/llair_to_Fol.ml b/sledge/src/llair_to_Fol.ml
index 5ede842a4..d45e7ed2b 100644
--- a/sledge/src/llair_to_Fol.ml
+++ b/sledge/src/llair_to_Fol.ml
@@ -87,6 +87,7 @@ and term : Llair.Exp.t -> T.t =
         | _ -> uap1 (Unsigned bits) a
       else uap1 (Unsigned bits) a
   | Ap1 (Convert {src= Pointer _}, Pointer _, e) -> term e
+  | Ap1 (Convert {src= Float _}, Float _, e) -> term e
   | Ap1 (Convert {src}, dst, e) ->
       let s =
         Format.asprintf "convert_%a_of_%a" Llair.Typ.pp dst Llair.Typ.pp src