add constraint validation code (currently unused)

This commit is contained in:
Folkert 2021-05-05 21:35:49 +02:00
parent 86ffd430d7
commit b5c655c84d
3 changed files with 118 additions and 2 deletions

View file

@ -850,6 +850,14 @@ pub struct VariableDetail {
pub recursion_variables: MutSet<Variable>,
}
impl VariableDetail {
pub fn is_empty(&self) -> bool {
self.type_variables.is_empty()
&& self.lambda_set_variables.is_empty()
&& self.recursion_variables.is_empty()
}
}
fn variables_help_detailed(tipe: &Type, accum: &mut VariableDetail) {
use Type::*;