34 lines
860 B
C
34 lines
860 B
C
|
/*
|
||
|
|
Copyright (c) 2013 Microsoft Corporation. All rights reserved.
|
||
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
||
|
|
|
||
|
|
Author: Leonardo de Moura
|
||
|
|
*/
|
||
|
|
#pragma once
|
||
|
|
#include "expr.h"
|
||
|
|
|
||
|
|
namespace lean {
|
||
|
|
// Some value subclasses that capture common implementation patterns.
|
||
|
|
class named_value : public value {
|
||
|
|
name m_name;
|
||
|
|
public:
|
||
|
|
named_value(name const & n):m_name(n) {}
|
||
|
|
virtual ~named_value() {}
|
||
|
|
virtual name get_name() const { return m_name; }
|
||
|
|
};
|
||
|
|
|
||
|
|
class const_value : public named_value {
|
||
|
|
expr m_type;
|
||
|
|
public:
|
||
|
|
const_value(name const & n, expr const & t):named_value(n), m_type(t) {}
|
||
|
|
virtual ~const_value() {}
|
||
|
|
virtual expr get_type() const { return m_type; }
|
||
|
|
};
|
||
|
|
|
||
|
|
class type_value : public named_value {
|
||
|
|
public:
|
||
|
|
type_value(name const & n):named_value(n) {}
|
||
|
|
virtual expr get_type() const { return Type(); }
|
||
|
|
};
|
||
|
|
}
|