Skip to content
Snippets Groups Projects
Commit a56ee38b authored by Loïc Correnson's avatar Loïc Correnson
Browse files

[wp] unused Ground.singleton

parent a73db19f
No related branches found
No related tags found
No related merge requests found
......@@ -38,7 +38,6 @@ let occurs xs a = Vars.intersect xs (F.vars a)
module Ground =
struct
type subst = pred -> pred
type env = {
mutable ground : bool Tmap.t ;
sigma : F.sigma ;
......@@ -125,11 +124,6 @@ struct
let top () = { ground = Tmap.empty ; sigma = Lang.sigma () }
let copy env = { ground = env.ground ; sigma = Subst.copy env.sigma }
let singleton p =
let env = top () in
ignore (assume env p) ;
p_apply env
let branch env p =
let p = p_apply env p in
let wa = copy env in
......
......@@ -29,9 +29,6 @@ open Lang.F
module Ground :
sig
type subst = pred -> pred
val singleton : pred -> subst
type env
val top : unit -> env
val copy : env -> env
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment