Commit 3b321edf authored by Claude Marche's avatar Claude Marche

simple renaming

parent 26b1e6de
......@@ -431,12 +431,12 @@ function msubst (f:fmla) (x:mident) (v:ident) : fmla =
(** [fresh_in_term id t] is true when [id] does not occur in [t] *)
predicate fresh_in_term (x:ident) (t:term) =
predicate fresh_in_term (id:ident) (t:term) =
match t with
| Tvalue _ -> true
| Tvar i -> x <> i
| Tvar i -> id <> i
| Tderef _ -> true
| Tbin t1 _ t2 -> fresh_in_term x t1 /\ fresh_in_term x t2
| Tbin t1 _ t2 -> fresh_in_term id t1 /\ fresh_in_term id t2
end
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment