1 | % (c) 2015 Lehrstuhl fuer Softwaretechnik und Programmiersprachen, | |
2 | % Heinrich Heine Universitaet Duesseldorf | |
3 | % This software is licenced under EPL 1.0 (http://www.eclipse.org/org/documents/epl-v10.html) | |
4 | ||
5 | :- module(smt_common_predicates, [is_smt_temp_var/1]). | |
6 | ||
7 | :- use_module(probsrc(module_information),[module_info/2]). | |
8 | ||
9 | :- use_module(library(lists), [prefix/2]). | |
10 | ||
11 | :- module_info(group,smt_solvers). | |
12 | :- module_info(description,'Shared Predicates used by several Modules belonging to the SMT Solvers Integration.'). | |
13 | ||
14 | :- set_prolog_flag(double_quotes, codes). | |
15 | ||
16 | is_smt_temp_var(b(identifier(Name),_,_)) :- | |
17 | atom_codes(Name,Codes), | |
18 | prefix(Codes,"_smt_tmp"). |