public static Term VarContextTypeAssumption(Variable v, Term varContext, TypeIsaVisitor typeIsaVisitor)
{
Term left = new TermApp(varContext, new StringConst(v.Name));
var right = IsaCommonTerms.SomeOption(typeIsaVisitor.Translate(v.TypedIdent.Type));
return(new TermBinary(left, right, TermBinary.BinaryOpCode.Eq));
}
/// <summary>
/// Initializes a new instance of the <see cref="MembershipLemmaManager"/> class.
/// Generated instance only has information about global data.
/// </summary>
public MembershipLemmaManager(
IsaGlobalProgramRepr globalProgRepr,
int globalsMax,
IVariableTranslationFactory factory,
string theoryName)
{
containsLocalInformation = false;
this.factory = factory;
this.theoryName = theoryName;
typeIsaVisitor = new TypeIsaVisitor(factory.CreateTranslation().TypeVarTranslation);
basicCmdIsaVisitor = new BasicCmdIsaVisitor(factory);
isaProgramRepr = new IsaProgramRepr(globalProgRepr, null, null, null, null, null, null);
config = new IsaProgramGeneratorConfig(null, true, true, true, false, SpecsConfig.None, false);
consts = QualifyAccessName(isaProgramRepr.GlobalProgramRepr.constantsDeclDef);
globals = QualifyAccessName(isaProgramRepr.GlobalProgramRepr.globalsDeclDef);
constsAndGlobalsDefs =
new[] { consts + "_def", globals + "_def" };
constsAndGlobalsList =
IsaCommonTerms.AppendList(IsaCommonTerms.TermIdentFromName(consts),
IsaCommonTerms.TermIdentFromName(globals));
AddMinOrMaxLemma(true, globalsMax, VariableNames(constsAndGlobalsList));
AddWellFormednessLemmas();
}
public static Term VariableTypeAssumption(
Variable v,
Term vcVar,
TypeIsaVisitor typeIsaVisitor,
Term absValTyMap)
{
var left = IsaBoogieTerm.TypeToVal(absValTyMap, vcVar);
var right = typeIsaVisitor.Translate(v.TypedIdent.Type);
return(TermBinary.Eq(left, right));
}
private void AddHint(IDictionary <TypeVariable, Type> unifier)
{
var typeIsaVisitor = new TypeIsaVisitor(tyVarTranslation);
IDictionary <int, Term> indexToType = new Dictionary <int, Term>();
foreach (var entry in unifier)
{
if (tyVarTranslation.TryTranslateVariableId(entry.Key, out var idTerm, out _) &&
idTerm is NatConst idNat)
{
indexToType.Add(idNat.Val, typeIsaVisitor.Translate(entry.Value));
}
public MembershipLemmaManager(
IsaProgramGeneratorConfig config,
IsaProgramRepr isaProgramRepr,
IsaBlockInfo isaBlockInfo,
Tuple <int, int> GlobalsMaxLocalsMin,
IVariableTranslationFactory factory,
string theoryName
)
{
parent = config.parentAccessor;
this.isaProgramRepr = isaProgramRepr;
this.factory = factory;
this.theoryName = theoryName;
this.config = config;
this.isaBlockInfo = isaBlockInfo;
typeIsaVisitor = new TypeIsaVisitor(factory.CreateTranslation().TypeVarTranslation);
basicCmdIsaVisitor = new BasicCmdIsaVisitor(factory);
paramsAndLocalsDefs =
new[] { isaProgramRepr.paramsDeclDef + "_def", isaProgramRepr.localVarsDeclDef + "_def" };
parameters = config.generateParamsAndLocals
? QualifyAccessName(isaProgramRepr.paramsDeclDef)
: parent.ParamsDecl();
locals = config.generateParamsAndLocals
? QualifyAccessName(isaProgramRepr.localVarsDeclDef)
: parent.LocalsDecl();
paramsAndLocalsList =
IsaCommonTerms.AppendList(IsaCommonTerms.TermIdentFromName(parameters),
IsaCommonTerms.TermIdentFromName(locals));
consts = config.generateGlobalsAndConstants
? QualifyAccessName(isaProgramRepr.GlobalProgramRepr.constantsDeclDef)
: parent.ConstsDecl();
globals = config.generateGlobalsAndConstants
? QualifyAccessName(isaProgramRepr.GlobalProgramRepr.globalsDeclDef)
: parent.GlobalsDecl();
constsAndGlobalsDefs =
new[] { consts + "_def", globals + "_def" };
constsAndGlobalsList =
IsaCommonTerms.AppendList(IsaCommonTerms.TermIdentFromName(consts),
IsaCommonTerms.TermIdentFromName(globals));
AddDisjointnessLemmas(GlobalsMaxLocalsMin.Item1, GlobalsMaxLocalsMin.Item2);
AddWellFormednessLemmas();
}
public static Term FunctionVcCorresAssm(
Function f,
IDictionary <Function, TermIdent> funInterpMapping,
IDictionary <NamedDeclaration, Term> declToVCMapping,
BoogieContextIsa boogieContext
)
{
var converter = new PureToBoogieValConverter();
//TODO: unique naming scheme
var boundParamVars = GetNames("farg", f.InParams.Count);
TypeUtil.SplitTypeParams(f.TypeParameters, f.InParams.Select(v => v.TypedIdent.Type),
out var explicitTypeVars, out var implicitTypeVars);
var boundTypeVars = GetNames("targ", f.TypeParameters.Count);
IDictionary <TypeVariable, Term> substitution = new Dictionary <TypeVariable, Term>();
var i = 0;
foreach (var tv in f.TypeParameters)
{
substitution.Add(tv, new TermIdent(boundTypeVars[i]));
i++;
}
var varSubstitution = new SimpleVarSubstitution <TypeVariable>(substitution);
var typeIsaVisitor = new TypeIsaVisitor(varSubstitution);
IEnumerable <Term> valueArgConstraints =
f.InParams
.Select((v, idx) =>
!TypeUtil.IsPrimitive(v.TypedIdent.Type)
? TermBinary.Eq(
IsaBoogieTerm.TypeToVal(boogieContext.absValTyMap, new TermIdent(boundParamVars[idx])),
typeIsaVisitor.Translate(v.TypedIdent.Type))
: null)
.Where(t => t != null);
var boogieFunTyArgs = boundTypeVars.Select(id => (Term) new TermIdent(id)).ToList();
var vcFunTyArgs = new List <Term>();
f.TypeParameters.ZipDo(boogieFunTyArgs, (tv, tvTerm) =>
{
if (explicitTypeVars.Contains(tv))
{
vcFunTyArgs.Add(IsaBoogieVC.TyToClosed(tvTerm));
}
});
var boogieFunValArgs =
f.InParams.Select(
(v, idx) => converter.ConvertToBoogieVal(v.TypedIdent.Type, new TermIdent(boundParamVars[idx]))
).ToList();
Term left = new TermApp(funInterpMapping[f], new List <Term>
{
new TermList(boogieFunTyArgs),
new TermList(boogieFunValArgs)
});
Term vcFunApp =
new TermApp(declToVCMapping[f],
vcFunTyArgs.Union(
boundParamVars.Select(bv => (Term) new TermIdent(bv)).ToList()
).ToList());
var outputType = f.OutParams.First().TypedIdent.Type;
var right = IsaCommonTerms.SomeOption(
converter.ConvertToBoogieVal(outputType,
vcFunApp)
);
Term equation = TermBinary.Eq(left, right);
Term conclusion;
if (!TypeUtil.IsPrimitive(outputType))
{
//if type is not primitive, then the type information is not yet included
conclusion = TermBinary.And(equation,
TermBinary.Eq(
IsaBoogieTerm.TypeToVal(boogieContext.absValTyMap, vcFunApp),
typeIsaVisitor.Translate(outputType)
));
}
else
{
conclusion = equation;
}
if (valueArgConstraints.Any())
{
conclusion = TermBinary.MetaImplies(valueArgConstraints.Aggregate((t1, t2) => TermBinary.And(t2, t1)), conclusion);
}
if (boogieFunTyArgs.Any())
{
var closednessAssms = boogieFunTyArgs.Select(t1 => IsaBoogieTerm.IsClosedType(t1))
.Aggregate((t1, t2) => TermBinary.And(t2, t1));
conclusion = TermBinary.MetaImplies(closednessAssms, conclusion);
}
if (boundParamVars.Any())
{
return(new TermQuantifier(TermQuantifier.QuantifierKind.META_ALL,
boundParamVars.Union(boundTypeVars).ToList(), conclusion));
}
return(conclusion);
}
