-- | generates the free representation of a variable declaration
free_var_decl :: VAR_DECL -> VAR_DECL
free_var_decl (Var_decl vs s r) = Var_decl vs s' r
     where s' = mkFreeName s

{- | computes the substitution needed for the kernel of h to the
sentences of the theory of M -}
free_var_decl :: VAR_DECL -> VAR_DECL
free_var_decl (Var_decl vs s r) = Var_decl vs s' r
     where s' = mkFreeName s

{- | computes the substitution needed for the kernel of h to the
sentences of the theory of M -}
free_var_decl (Var_decl vs s r) = Var_decl vs s' r
     where s' = mkFreeName s

{- | computes the substitution needed for the kernel of h to the
sentences of the theory of M -}