Commit 7845b21e authored by MARCHE Claude's avatar MARCHE Claude
Browse files

cleaning

parent ac14a2af
...@@ -372,7 +372,7 @@ inductive compatible datatype value = ...@@ -372,7 +372,7 @@ inductive compatible datatype value =
*) *)
predicate compatible_env (sigma:env) (sigmat:type_env) (pi:stack) (pit: type_stack) = predicate compatible_env (sigma:env) (sigmat:type_env) (pi:stack) (pit: type_stack) =
(forall id: mident. type_value (IdMap.get sigma id) = get_reftype id sigmat) /\ (forall id: mident. type_value (get_env id sigma) = get_reftype id sigmat) /\
(forall id: ident. type_value (get_stack id pi) = get_vartype id pit) (forall id: ident. type_value (get_stack id pi) = get_vartype id pit)
lemma type_inversion : forall v "induction":value. lemma type_inversion : forall v "induction":value.
...@@ -439,9 +439,8 @@ function msubst (f:fmla) (x:mident) (v:ident) : fmla = ...@@ -439,9 +439,8 @@ function msubst (f:fmla) (x:mident) (v:ident) : fmla =
(** [fresh_in_term id t] is true when [id] does not occur in [t] *) (** [fresh_in_term id t] is true when [id] does not occur in [t] *)
predicate fresh_in_term (id:ident) (t:term) = predicate fresh_in_term (id:ident) (t:term) =
match t with match t with
| Tvalue _ -> true | Tvalue _ | Tderef _ -> true
| Tvar i -> id <> i | Tvar i -> id <> i
| Tderef _ -> true
| Tbin t1 _ t2 -> fresh_in_term id t1 /\ fresh_in_term id t2 | Tbin t1 _ t2 -> fresh_in_term id t1 /\ fresh_in_term id t2
end 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