litex-lang 0.9.65-beta

A simple formal proof language and verifier, learnable in 2 hours
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

use crate::prelude::*;

#[derive(Debug)]
pub enum StmtResult {
    NonFactualStmtSuccess(NonFactualStmtSuccess),
    FactualStmtSuccess(FactualStmtSuccess),
    StmtUnknown(StmtUnknown),
}

impl From<NonFactualStmtSuccess> for StmtResult {
    fn from(v: NonFactualStmtSuccess) -> Self {
        StmtResult::NonFactualStmtSuccess(v)
    }
}

impl From<FactualStmtSuccess> for StmtResult {
    fn from(v: FactualStmtSuccess) -> Self {
        StmtResult::FactualStmtSuccess(v)
    }
}

impl From<StmtUnknown> for StmtResult {
    fn from(v: StmtUnknown) -> Self {
        StmtResult::StmtUnknown(v)
    }
}

const VERIFIED_BY: &str = "verified by";
const INFER_COLON: &str = "infer:";

impl StmtResult {
    pub fn with_infers(mut self, infer_result: InferResult) -> Self {
        match &mut self {
            StmtResult::NonFactualStmtSuccess(x) => x.infers.new_infer_result_inside(infer_result),
            StmtResult::FactualStmtSuccess(x) => x.infers.new_infer_result_inside(infer_result),
            StmtResult::StmtUnknown(_) => {}
        }
        self
    }
}

impl StmtResult {
    fn infer_block_string(infer_result: &InferResult) -> String {
        if infer_result.is_empty() {
            return String::new();
        }
        format!(
            "\n\n{}\n{}",
            INFER_COLON,
            infer_result.join_infer_lines("\n")
        )
    }

    /// Returns the result body string without any line/file prefix (for tests or when location is not needed).
    pub fn body_string(&self) -> String {
        match self {
            StmtResult::NonFactualStmtSuccess(x) => {
                format!(
                    "{}\n{}{}",
                    SUCCESS_COLON,
                    x.stmt,
                    Self::infer_block_string(&x.infers)
                )
            }
            StmtResult::FactualStmtSuccess(x) => {
                format!(
                    "{}\n{}\n{}\n{}{}",
                    SUCCESS_COLON,
                    x.stmt,
                    VERIFIED_BY,
                    x.msg,
                    Self::infer_block_string(&x.infers)
                )
            }
            StmtResult::StmtUnknown(x) => x.to_string(),
        }
    }
}

impl StmtResult {
    #[allow(dead_code)]
    pub fn line_file(&self) -> LineFile {
        match self {
            StmtResult::NonFactualStmtSuccess(x) => x.stmt.line_file(),
            StmtResult::FactualStmtSuccess(x) => x.stmt.line_file(),
            StmtResult::StmtUnknown(_) => default_line_file(),
        }
    }
}

impl StmtResult {
    pub fn is_true(&self) -> bool {
        match self {
            StmtResult::NonFactualStmtSuccess(_) => true,
            StmtResult::FactualStmtSuccess(_) => true,
            StmtResult::StmtUnknown(_) => false,
        }
    }

    pub fn is_unknown(&self) -> bool {
        match self {
            StmtResult::StmtUnknown(_) => true,
            StmtResult::NonFactualStmtSuccess(_) => false,
            StmtResult::FactualStmtSuccess(_) => false,
        }
    }
}