20 lines
336 B
Plaintext
20 lines
336 B
Plaintext
|
import Pantograph.Protocol
|
||
|
|
|
||
|
|
namespace Pantograph
|
||
|
|
|
||
|
|
namespace Protocol
|
||
|
|
/-- Set internal names to "" -/
|
||
|
|
def Goal.devolatilize (goal: Goal): Goal :=
|
||
|
|
{
|
||
|
|
goal with
|
||
|
|
vars := goal.vars.map removeInternalAux,
|
||
|
|
}
|
||
|
|
where removeInternalAux (v: Variable): Variable :=
|
||
|
|
{
|
||
|
|
v with
|
||
|
|
name := ""
|
||
|
|
}
|
||
|
|
end Protocol
|
||
|
|
|
||
|
|
end Pantograph
|